
aS#nf8ÄlÄ|ig3Sp8 

miMs msmrnm 

bx, ?J:'\ 


Nr’6/e6: 

DM 6.50, sfr 6.50, ÖS 50,Ht 5900, hfl T.SO 




i¥» 

mm 


wM 

LV *■: 










;vj 




Wmw'^W^ 


Igr« 










mm 




PSS 








?: 'V r 




patÄ 

»#ip 


F(>-V;V--,V*^ 


^ KIIMi ia 

.^_ ^PUBLr|<ATlOM 










Sie erhalten Ihren »peeker« 


bei Ihrem Zeitschriftenhändler 
am Bahnhof 

^ bei allen Apple-Händlern 

* und natürlich beim Verlag. 

Denn der sicherste Weg, keine Ausgabe 
des »peeker« zu versäumen, ist noch 
immer das Abonnement zum Jahresvor¬ 
zugspreis. Dabei sparen Sie bares Geld. 
Beachten Sie in diesem Zusammenhang 
unsere Anzeige auf Seite 9, oder rufen 
Sie uns an: 

Telefon 0 62 21/489-281 (Peeker-Leser- 
service). 



HÜthiS Dr. Alfred Hüthig Verlag, Im Weiher 10, 6900 Heidelberg 
PUBLIKATION BTX *51851# 
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Kyan-Pascal Version 2.01 A 

Während der Drucklegung dieser 
Peeker-Ausgabe ist Kyan-Pascal in 
der Version 2.01 A eingetroffen, wel¬ 
che die in diesem Heft beschriebe¬ 
nen Compiler-Fehler behebt. Die Än¬ 
derungen berühren nur die Dateien 
PC, LIB und STDLIB.S, die zusätz¬ 
lich auf die Kyan-Club-Disk #A auf¬ 
genommen wurden, die verschiede¬ 
ne Übungsprogramme sowie unsere 
FID-Library enthält (Preis DM 20,-; 
siehe Club-Rundschreiben #2 vom 
15.5.86). Wenn Sie die Club-Disk #A 
nicht kaufen wollen, können Sie die 
geänderten 2.01A-Dateien kostenlos 
anfordern, falls Sie ein Diskettendu- 
piikat der Disk 1, Seite 2 und eine 
Photokopie unserer Originalrech¬ 
nung zur Version 2.0 als Kaufbeleg 
einschicken. Die neuen Dateien wer¬ 
den dann auf Ihr Duplikat überspielt. 
Kyan-Besteller, die ab 1.6.86 belie¬ 
fert werden, erhalten automatisch 
die neue Version. 


Das Adipositas-Syndrom 

Im Vorfeld der Einführung des Apple-IE 
Nachfolgers, der Mitte September das Licht 
der Welt erblicken soll, möchte ich einem 
Problem nachgehen, das mir seit geraumer 
Zeit Sorge bereitet, nämlich dem paradoxen 
Trend in Richtung mehr Speicherkapazität 
und mehr Prozessorleistung bei weniger Mi¬ 
kro-Leistung. 

Zunächst zur Speicherkapazität: 128K wä¬ 
ren für einen 16-Bit-Mikrocomputer wohl et¬ 
was zu mager. Folglich werden Maschinen 
mit 512K und mehr angeboten. Doch hat 
man damit genügend freien Speicher? 
Keineswegs! Denn die Programme der 
Software-Häuser entwickeln sich immer 
mehr zu aufgedunsenen Speicherfressern, 
Das alte Visicalc beanspruchte für sich nicht 
viel mehr als 16K. Der Rest des Speichers 
stand für das Betriebssystem und die Tabel¬ 
lendaten zur Verfügung. Programme wie Lo¬ 
tus 1-2-3 usw, nehmen regelmäßig 200K 
bis 400K in Beschlag, so daß unter Abzug 
des Betriebssystems kaum noch Platz für 
die eigentlichen Daten bleibt. Beispielswei¬ 
se belegt Framework II, „die Offenbarung 
für PC-Anwendungen“ (so „Computer Per¬ 
sönlich“, 12/86, S. 115), für das reine Pro¬ 
gramm 380K, Für mich ist dies keine Offen¬ 
barung, sondern eher eine Apokalypse. 
Ähnliches erleben wir beim Atari; Beim 
512K-BASIC meldet der Fre-Befehl ca. 
30K, also weniger als beim 48K-Applesoft. 
Mit dieser Fettsucht, die man als „Micro- 
Adipositas“ bezeichnen könnte, geht eine 
Behäbigkeit in der Programmausführung 
einher, die bei größeren Datenmassen 
schlechthin zur Farce wird. Wenn man beim 
Wordstar 3.4 auf dem IBM-PC-XT 1000 A’s 
eingibt und diese dann über „CtrI-QA“ in 
1000 B’s verwandeln will, so muß man exakt 
309 Sekunden warten, also länger als beim 
alten Wordstar 3.0 unter CP/M mit 6MHz- 
Z80, Zum Vergleich ist der Fastwriter mit 
Accelerator in 0,125 Sekunden fertig und 
damit knapp 3000mal schneller als der 
Wordstar 3.4. 

Trotzdem gilt der Wordstar 3,4 noch als 
„schnell“ im Vergleich zum Wordstar 2000, 
bei dem man sich bis zu 15 Minuten gedulden 
muß, bis ein Block verschoben worden ist. 
Und der Sprung zum Ende eines sehr lan¬ 
gen Textes dauert beim Wordstar 2000 4-5 
Minuten gegenüber „nur" ca. 40-50 Se¬ 
kunden beim Wordstar 3.4. 

Nun könnte man mit Recht einwenden, daß 
diese Geschwindigkeitstests praxisfremd 
sind, denn welcher Anwender ersetzt schon 
1000 A’s durch 1000 B’s. Tatsächlich sind 
die A’s selbst unwichtig, doch was passiert, 
wenn nicht nach A’s, sondern nach Adres¬ 


sen gesucht werden soll? Zu diesem Zweck 
habe ich-ebenfalls auf einem IBM-PC-XT- 
eine dBase-Testdatei mit 3000 Datensätzen 
mit einem 15stelligen Zufallsstring-Feld 
(Typ C) erzeugt und im Anschluß daran auf 
der Festplatte unter dBase III indiziert, was 
eine schiere Ewigkeit dauerte. Doch es kam 
noch schlimmer: Der LIST-Befehl, etwa 
LIST FOR FELD = „Z" - benötigte jetzt re¬ 
gelmäßig über 3 Minuten, gleichviel ob 
dBase III einen Record findet oder nicht. 
Zurück zur praktischen Anwendung: Hier 
umfaßt ein Datensatz üblicherweise mehr 
als 1 Feld, und die Felder selbst sind meist 
mehr als 15 Zeichen lang. Außerdem benö¬ 
tigt man in der Regel mehr als eine Indexda¬ 
tei. Zudem könnte man bei einer lOM-Fest- 
platte auf die Idee kommen, eine Adreßdatei 
mit 10.000 Datensätzen anzulegen. Dann 
steigen jedoch die Verarbeitungszeiten von 
dBase III exponentiell an. Wartezeiten von 
weit mehr als einer Minute für das Einfügen 
von einer einzigen Adresse werden nun¬ 
mehr zur Regel, und den LIST-FOR-Befehl 
kann man nur noch vor Geschäftsschluß 
eingeben: Am nächsten Morgen kommt 
man dann gerade rechtzeitig zur Anzeige 
der gefundenen Adressen ins Büro. 

Woher kommt es nun, daß Wordstar 3.0, 
dBase III, Easy usw. gigantisch aufgedun¬ 
sen und zugleich haarsträubend langsam 
sind? Liegt es am IBM-PC oder am MS- 
DOS? Mitnichten! Es liegt einzig und allein 
daran, daß diese Programme in höheren 
Programmiersprachen erstellt worden sind. 
So wurden etwa dBase III und Wordstar 3.0 
in C geschrieben, und Easy - das neueste 
„fat-and-slow“-Produkt aus dem Hause Mi¬ 
croPro - sogar in Modula 2. Nichts gegen C 
und Modula 2, aber der von höheren Spra¬ 
chen erzeugte Objektcode stellt nun einmal 
keinen Ersatz für kompakte und schnelle 
Programme dar, die direkt in Assembler ge¬ 
schrieben wurden. Und wenn dann noch 
von MicroPro behauptet wird, daß in den 
Wordstar 2000 fünfzig Mannjahre gesteckt 
wurden (s. „Computer-Magazin“, 4/86, S. 
44), dann muß man sich angesichts des 
dürftigen Resultats fragen, welche Amateu¬ 
re hier am Werk gewesen sind, denn selbst 
aus einer Compilersprache kann man eini¬ 
ges herausholen, wenn man intelligente Al¬ 
gorithmen zur Anwendung bringt. 

Ich wünsche mir für Sie, liebe Leser, daß 
sich die Software-Häuser beim Apple-Il- 
Nachfolger diesem unerquicklichen Trend 
nicht anschließen. 






i 


Ulrich Stiehl 
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3. Kurze technische Erläuterungen 

3.1. zum Applesoft-Programm 

3.2. zu den Assemblerroutinen 

4. Anweisungen zum Ausdrucken der 
Grafiken mit SUPERDUMP 

5. Erläuterungen zur Anpassung von 
PLOT.3,E an individuelle Gerätekonfigura¬ 
tionen 


1. Minimalkonfiguration 
und Installation 

Als Minimalkonfiguration benötigen Sie 
entweder einen Apple Ile mit erweiterter 
80-Zeichenkarte oder einen Apple llc. Als 
Option können Sie mit einem grafikfähigen 
Matrixdrucker, für den Sie SUPERDUMP 
angepaßt haben, die von PLOT.3.E erstell¬ 
ten Grafiken ausdrucken. Lesen Sie dazu 
bitte Abschnitt 4 und 5. PLOT.3.E ist auf 
die Benutzung unter DOS 3.3 (oder einem 
verwandten Betriebssystem) zugeschnit¬ 
ten, ist jedoch auch unter ProDOS lauf¬ 
fähig. 

Zur Installation von PLOT,3.E unter DOS 
3.3 gehen Sie bitte wie folgt vor: 

1. Booten Sie DOS 3.3 (oder besser Di- 
versI-DOS) 

2. Geben Sie ein: 

NEW 
10 NEW 

POKE 40514,20. 

3. Legen Sie nun eine Leerdiskette ein 
und initialisieren Sie sie mit 
INITPLOT.3.PRO. 

Wenn diese Diskette gebootet wird, erwar¬ 
tet DOS 3.3 einen EXEC-File als HELLO- 
Programm. 

4. Löschen Sie den File wieder mit 
DELETE PLOT.3.PRO. 

5. Transferieren Sie nun mit FID oder ei¬ 
nem anderen File-Kopierprogramm fol¬ 
gende Files auf die Leerdiskette. 

PLOT.3.PRO 
PLOT,3.E 
PLOT.BX 
PLOT.HELP.1 
PLOT.HELP.2 
PLOT.HELP.3 
PLOT.HELP.4 
PLOT.HELP.5 


Diese Files (und noch mehr) befinden sich 
auf der Sammeldiskette. Ich würde Ihnen 
nicht empfehlen, all diese Files selbst ein¬ 
zutippen, es sei denn, Sie können die 
Arbeit auf mehrere Freunde verteilen. 
Wollen Sie es dennoch wagen, so beach¬ 
ten Sie bitte die Flinweise vor den Listings. 
Fiaben Sie dies ailes bewerksteiligt, läuft 
PLOT.3.E automatisch an, wenn Sie die 
Diskette booten. 




I. 
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2. Bedienungsanleitung 

Diese Anleitung ist wenig sinnvoll, wenn 
Sie die Beispiele nicht selbst ausprobie¬ 
ren. Setzen Sie sich also an Ihren Rechner 
und werfen Sie PLOT.3.E an, am besten 
durch Booten einer Diskette, die wie oben 
beschrieben initialisiert wurde. Ansonsten 
mit EXEC PLOT.3.PRO. 

Nach kurzer Zeit erscheint auf dem Bild¬ 
schirm ein kurzes Startmenü. Der Rechner 
wartet nun auf einen Tastendruck. Danach 
erscheint auf Ihrem Monitor die Frage 
„Wünschen Sie eine Kurzeinführung? Be¬ 
tätigen Sie bitte ’J’ oder ’N’.“ Eine ähnli¬ 
che Frage wird PLOT.3.E beim Eintritt in 
jeden größeren Programmteil stellen. Fra¬ 
gen, die Sie mit „J“ oder „N“ beantworten 
müssen, erkennen sie durch ein ange¬ 
hängtes ,.<J/N>“. Tippen Sie nun auf J, 
so werden die Erläuterungen zum betref¬ 
fenden Programmteii von der Diskette auf 
dem Bildschirm ausgegeben. Da die Be¬ 
dienungsanleitung, die Sie jetzt gerade le¬ 
sen, wesentlich ausführlicher ist, können 
Sie auf N tippen und somit auf die Erläute¬ 
rungen verzichten. 

Danach erscheint auf dem Bildschirm die 
Frage; „Funktionseingabe: Wünschen Sie 
Erläuterungen? <J/N>“. Wählen Sie! 
Später werden Sie aufgefordert, die Funk¬ 
tion einzugeben, deren grafische Darstel¬ 
lung Sie wünschen. Als erstes Beispiel 
tippen Sie bitte SIN(X) ein, gefolgt von 
einem Druck auf die Return-Taste. Fiaben 
Sie dabei keinen Fehler gemacht, er¬ 
scheint die Frage „Ist das richtig? <J/ 
N>“. Tippen Sie auf A/, so können Sie Ihre 
Eingabe korrigieren. Ist Ihnen jedoch ein 
gravierender Fehler unterlaufen (z.B. eine 
nicht geschlossene Klammer), ertönt ein 
Piepston und PLOT.3.E fordert Sie auf, 
den Fehler zu korrigieren. 

Als nächstes fragt PLOT.3.E, ob Sie Erläu¬ 
terungen zur Eingabe der Darstellungs¬ 
grenzen abrufen wollen. Ist das erledigt, 
geben Sie bitte nacheinander, erst für die 
X-, dann für die Y-Achse, deren Anfangs¬ 
und Endwert ein. in unserem Beispiel 
wählen wir 0, 6.28, -1.1, und -hl.1. Tippen 
Sie das genauso ein, gefolgt von einem 
Return. Unterläuft Ihnen bei der Eingabe 
ein Syntax-Fehler, erfolgt eine Fehlermel¬ 
dung, und Sie werden gebeten, die Einga¬ 
be zu wiederholen. Ist die Eingabe erfolg¬ 
reich abgeschlossen, werden auf der un¬ 
teren Flälfte des Bildschirms die festgeleg¬ 
ten Darstellungsgrenzen gezeigt. Ist alles 
nach Wunsch eingegeben, tippen Sie bitte 
auf J, tippen Sie jedoch auf N, können Sie 
die Eingabe wiederholen. (Wählen Sie vor¬ 
erst die Option der vollständigen Neuein¬ 
gabe. Die zweite Option führe ich Ihnen 
später vor.) 


ProDOS-Editor 1.0 

Applesoft-Editor 

unter ProDOS-Betriebssystem 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1024-X 

Mit diesem neuen Editor - übrigens 
der bislang einzige deutsche Pro¬ 
DOS-Editor - wird dem Applesoft- 
Programmierer ein Werkzeug zur ef¬ 
fektiven Programmierung unter dem 
Betriebssystem ProDOS gegeben, 
denn die früheren Editoren sind alle¬ 
samt unter ProDOS nicht mehr lauf¬ 
fähig. 

Unter anderem sind folgende Fea¬ 
tures implementiert worden: 

- Zeilenorientierter Editor mit jedem er¬ 
denklichen Redigierkomfort (Insert, 
Delete, Tab, Restore, freie Cursorbe¬ 
wegung in allen vier Richtungen. Einga¬ 
be von CtrI-Buchstaben in Applesoft- 
Zeilen usw.) 

- Renumber (Zeilen-Umnumerierung) 

- Xreference (sortierte Variablenliste) 

- Suchen von Tokens, Strings und Varia¬ 
blen 

- dezimale und hexadezimale Umrech¬ 
nungen 

- Ausführung von Monitorbefehlen aus 
dem Editor heraus 

- Listen des Applesoft-Programms in 
speicherinterner Form als Hex-Dump 

- Suchen von Hex-Folgen, Adressen 
oder Speicherstellen im gesamten 
RAM-Bereich einschließlich der 
Language-Card 

- frei definierbare Tastatur-Macrobefehle 

Der Applesoft-Editor liegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor¬ 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 

Gerätevoraussetzung: Apple ll-i-, Ile 
oder llc, 40 Zeichen/Zeile 

Hinweis: Der Applesoft-Editor für 
DOS 3.3 befindet sich auf Sammel¬ 
disk # 16 für Fortsetzungsbezieher. 
Siehe Peeker 4/86, S. 13. 

Hüthig Software Service, 

Postfach 10 28 69, 

D-6900 Heidelberg 
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Auf dem Bildschirm müßte nun folgende 
Zusammenfassung erscheinen: 


„Funktion: Y=SIN(X) 

Parameter: Es werden keine Parameter verwendet. 
Darstellungsgrenzen: X: 0 .. 6.28, Y: -1.1 .. 1.1" 

Wieder folgt die Frage, ob alles richtig ist. 

Wenn Sie nun auf .7 tippen, wird der Bild¬ 
schirm gelöscht, ein Achsenkreuz ge¬ 
zeichnet und eine Sinuslinie langsam von 
links nach rechts durchgezogen. Das dau¬ 
ert insgesamt etwa 80 Sekunden. Tippen 
Sie während des Zeichnens auf die Leer¬ 
taste, sehen Sie statt der Grafik Text. In 
diesem Text sind Ihre Eingabedaten auf¬ 
geführt. Tippen Sie nochmals auf die Leer¬ 
taste, erscheint wieder die Grafik. 

Ist die Sinuslinie bis zum rechten Bild¬ 
schirmrand durchgezogen, ertönt ein 
Piepston. Sie sollte nun so aussehen, wie 
Bild 1. Drücken Sie nun auf irgendeine 
Taste, so tritt PLOT.3.E ins Hauptmenü 
ein. Von dort aus können Sie alle zentralen 
Funktionen von PLOT.3.E aufrufen. Die¬ 
ses Hauptmenü erscheint auch, wenn Sie 
während eines Zeichenvorgangs auf Ctrl- 
C gedrückt haben. 

Ich möchte Ihnen nun kurz die einzelnen 
Funktionen des Hauptmenüs vorführen. 
Tippen Sie auf 1\ Richtig, Sie können die 
Darstellungsgrenzen erneut eingeben. 
Beantworten Sie also die Frage „Ist das 
richtig?“ mit N\ Geben Sie folgende Werte 
ein: X: -3.14, 3.14 und Y: 0, 0. Ergebnis: 
Anfangs- und Endwert für die X-Achse 
werden korrekt übernommen. Für die Y- 
Achse jedoch erscheinen die Werte -F/- 
2.1496.... Tippen Sie bitte auf J. Die Grafik 
wird gelöscht und ein neues Achsenkreuz 
gezeichnet. Danach erscheint wieder das 
Hauptmenü. 

Drücken Sie auf die Leertaste, damit Sie 
sich das Achsenkreuz genauer ansehen 
können. Sie werden feststellen, daß nun 
die Markierungen auf der X-Achse unter¬ 
einander den gleichen Abstand haben wie 
die auf der Y-Achse. Das heißt, daß X- und 
Y-Achse auf den gleichen Maßstab abbil¬ 
den. Probieren Sie es aus. Tippen Sie auf 
6, dann wird die Funktion neu gezeichnet. 
Richtig, in den Nullstellen hat die Sinusli¬ 
nie nun die Steigung -F/-1, wie wir es in 
der Schule gelernt haben. 

Fassen wir zusammen. Wenn Sie für eine 
Achse korrekte Anfangs- und Endwerte 
eingeben, für die andere Achse beide Ma¬ 
le 0, dann wird der Maßstab dieser Achse 
gleich dem der anderen. Die Darstellungs¬ 
grenzen dieser Achse sind gleich weit 
vom Ursprung entfernt. 

Probieren wir’s gleich nochmals aus. Ge¬ 
ben Sie nun für X: -hl, -h6.28 ein, für Y 
wieder beide Male 0. Was ist nun passiert? 


Die Darstellungsgrenzen sind unverändert 
geblieben. Begründung: Da für die X-Ach- 
se Anfangs- und Endwert größer als 0 
sind, könnte die Y-Achse nicht gezeichnet 
werden (da diese durch den Nullpunkt der 
X-Achse geht). Darum korrigiert PLOT.3.E 
notfalls Ihre Eingaben so, daß alle Achsen 
gerade noch gezeichnet werden können. 
In unserem Beispiel wird daher der An¬ 
fangswert für X auf 0 festgesetzt. 

Tippen Sie nun nochmals auf N für nicht 
richtig. Wir wollen jetzt die zweite Möglich¬ 
keit für die Festlegung der Darstellungs¬ 
grenzen kennenlernen. Tippen Sie also 
gleich nochmal auf N. Offensichtlich tritt 
PLOT.3.E in einen neuen Programmteil 
ein, denn es bietet Ihnen wieder Erläute¬ 
rungen an. Was können Sie nun in diesem 
Programmteil tun? 

a) Sie können die X- und die Y-Achse 
getrennt stauchen oder strecken. Dazu 
fragt Sie der Rechner für jede Achse, ob 
Sie sie manipulieren möchten. Tippen Sie 
auf J, bittet er sie, das Verhältnis der alten 
Darstellungsgrenzen zu den neuen einzu¬ 
geben. Es seien die alten Grenzen -2 und 
-F4. Geben Sie als Verhältnis 

alte Grenzen: 2, 
neue Grenzen: 3 

ein, werden die Grenzen auf -3 und -f 6 
festgelegt. Verstanden? Geben Sie die 
Zahlen getrennt ein, jeweils von Return 
abgeschlossen. 

b) Nachdem Sie gefragt worden sind, ob 
Sie die Achsen strecken oder stauchen 
wollen, dies eventuell auch getan haben, 
können Sie nun den Nullpunkt auf jeder 
Achse verschieben. Dies geschieht, in¬ 
dem Sie wieder ein Zahlenverhältnis ein¬ 
geben, und zwar das des positiven zum 
negativen Halbast der betreffenden Ach¬ 
se. Seien also die Grenzen wieder -2 und 
-f 4. Geben Sie als Verhältnis 1:0 an, wer¬ 
den die neuen Darstellungsgrenzen auf 0 
und -F6 festgelegt. Würden Sie als Ver¬ 
hältnis 1:1 eingeben, wären die neuen 
Grenzen -3 und -F3. 

In unserem konkreten Fall strecken Sie 
bitte die Y-Achse um den Faktor 2, das 
heißt, Verhältnis alt:neu = 2:1. Dann wol¬ 
len wir noch für die X-Achse das Verhältnis 
der positiven und negativen Halbachse auf 
1:1 festlegen. Flotten Sie die Funktion mit 
Option 6 des Hauptmenüs. Das Ergebnis 
müßte aussehen wie Bild 2. 

Nun wollen wir eine neue Funktion einge¬ 
ben: Wählen Sie dazu im Hauptmenü Op¬ 
tion 3. Geben Sie als Funktion SQR(R^R- 
Xi^X) ein. Dies ist eine Halbkreisfunktion 
mit dem Kreisradlus R. Dieses R stellt 


einen sogenannten Scharparameter dar 
(Sc/7a/parameter deshalb, weil so statt ei¬ 
ner Funktion eine Funktionenschar darge¬ 
stellt wird.) Ist die Eingabe abgeschlossen, 
bittet Sie PLOT.3.E gleich, R mit einem 
Wert zu belegen. Geben Sie 5 ein. 

Als nächstes müssen wir die Darstellungs¬ 
grenzen neu eingeben. Geben Sie bitte 
zuerst für X: -5 und -h5 ein, für Y: 0 und 0. 
Verschieben Sie dann gleich den Null¬ 
punkt auf der Y-Achse an den unteren 
Bildschirmrand (Verhältnis positive : nega¬ 
tive Halbachse = 1:0). Lassen Sie diese 
Funktion plotten. Es kommt dann tatsäch¬ 
lich ein Halbkreis heraus. 

Wählen Sie jetzt Option 2 des Hauptme¬ 
nüs. Geben Sie als neuen Wert für R nun 4 
ein und lassen Sie die Funktion wieder 
piotten. Der Halbkreis beginnt erst bei 
X=-4 und endet bei X=-F4. Der Grund 
dafür ist, daß an Stellen, an denen der 
Betrag von X größer als 4 ist, das Argu¬ 
ment der Wurzel kleiner als 0 wird. Solche 
Funktionswerte sind jedoch (zumindest Im 
Körper der reellen Zahlen) nicht definiert. 
Normalerweise würde Applesoft das Pro¬ 
gramm anhalten und eine Fehlermeldung 
ausgeben. Diese fängt PLOT.3.E jedoch 
Intern ab, so daß Sie sich nicht allzusehr 
um den Definitionsbereich der Funktion 
kümmern müssen. 

Rufen Sie bitte nochmals die Funktions¬ 
eingabe auf. Ändern Sie innerhalb der 
Klammern R\nT um. Nach erfolgter Einga¬ 
be fragt PLOT.3.E, ob Sie T als Variable 
einer Schleife mit fester Schrittweite ver¬ 
wenden wollen. Tippen Sie auf J. Danach 
geben Sie als Anfangswert für T 5, als 
Endwert 1 und als Schrittweite -1 ein. Lö¬ 
schen Sie mit Option 4 den Bildschirm und 
lassen Sie mit Option 6 die Funktion wie¬ 
der zeichnen. Sie können feststellen, daß, 
nachdem ein Halbkreis fertig gezeichnet 
worden ist, nicht mehr der Piepston ertönt, 
sondern ein neuer Halbkreis weiter Innen 
gezeichnet wird, bis zum Schluß der Halb¬ 
kreis mit Radius 1 fertig ist. Dann erst 
erfolgt der Piepston. Sie sehen fünf kon¬ 
zentrische Halbkreise auf dem Bildschirm, 
wie in Bild 3. 

Rufen Sie nun Option 5 des Hauptmenüs 
auf. Sie sehen die Datenilste, die norma¬ 
lerweise während des Zeichnens auf dem 
Textbildschirm steht, komplett mit allen 
Parameterwerten, inklusive einem, der 
noch gar nicht aktuell ist. 

Nun müssen Sie nur noch die Optionen 7 
und 0 des Hauptmenüs kennenlernen. 0 
erlaubt Ihnen den sanften Ausstieg aus 
PLOT.3.E. Brutal geht’s auch mit Ctrl-Re- 
set. Option 7 ruft ein neues Menü auf, 
nämlich das Disk-Menü. Wie der Name 
andeutet, können von dort aus Disketten¬ 
operationen ausgeführt werden. Das 
wären: 
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Apple II 
Raster ( 
Stanton 


Das Buch führt in die Eigen- 
schäften der hochauflösenden 
Apple-Grafik ein und präsen¬ 
tiert eine Reihe schneller As¬ 
sembler-Routinen, mit denen 
Sie viele Effekte bekannter Ar- 
cade-Spiele selbst program¬ 
mieren können. 

299 Seiten, komplett mit Disk 
3-89058-008-4 DM49. 




Wenn Sie Ihren Apple II oder 
llplus selbst reparieren, Inter¬ 
faces entwerfen oder einfach 
nur besser über das Innenle¬ 
ben Ihres Computers Bescheid 
wissen wollen: Informationen, 
Schaltpläne und Diagramme, 
Theorie und praktische Tips. 

215 Seiten, DIN A4 
3-89058-012-2 DM64,- 


Apple II 
Assembler 
Programmierung 
Wagner ^ 




Das Assembler-Lehrbuch für 
BASIC-Kenner! 

Eine stufenweise Einführung in 
die Befehle und Strukturen der 
6502-Assemblersprache, mit 
vielen Beispielen von der ein¬ 
fachen Tonerzeugung bis zum 
Diskettenzugriff. 

277 Seiten, komplett mit Disk 
3-89058-005-X DM49, 


Ampersand 

Verlag 


Teltower Damm 168 
D-1000 Berlin 37 
(030) 815 80 69 



j etzt gratis! 

Für den gleichen Inhalt sollen Sie 
nicht zweimal zahlen müssenl 
Die Begleitdiskette ist ab sofort im 
Preis des Buches enthalten! 


NEU! 


MERLIN PRO 






Info anfordern! 


AS 


^ sr 


Preissenkung! 



Ein Simulationsprogramm, das 
Sie in das Innere des 6502- 
Mikroprozessors führt. 

Sie sehen auf dem Bildschirm, 
wie die einzelnen Instruktionen 
in Zeitlupe ausgeführt werden, 
wie sich Register und Flags ver¬ 
ändern. Ein ideales Hilfsmittel 
zum Erlernen der Assembler¬ 
programmierung, danach ein 
wertvolles Werkzeug beim Te¬ 
sten Ihrer eigenen Program¬ 
me. Komplett mit einem 6502 
Editor/Assembler und einem 
Lehrbuch zur Maschinenpro¬ 
grammierung (deutsch, 150 
Seiten). 

3-89058-019-X DM58,- 


Ein professioneller Macro- 
Assembler für Apple Ile und llc. 
Jetzt neu: 

• Relocating Linker zum auto¬ 
matischen Linken unabhängi¬ 
ger, verschiebbarer Module 

• 6502,65C02 und 65802 

•DOS3.3und ProDOS 
dtsch. Handb., benötigt 128K 
3-89058-026-2 DM298.- 


Weiterhin lieferbar: 

MERLIN 

wie MERLIN PRO, aber ohne 
Linker, 65802 und ProDOS. 
läuft auf jedem Apple II mit 
mind.64K! 

mit deutschem Handbuch 
3-89058-024-6 DM198,- 



Worth/Lechner sind die Auto¬ 
ren von "Beneath Apple DOS", 
der Bibel aller DOS 3.3-Benut- 
zer. In Ihrem neuen Buch ha¬ 
ben sie sich ProDOS vorge¬ 
nommen: Arbeitsweise, MLI, 
BASIC.SYSTEM. Das Standard¬ 
werk für jeden ProDOS-User. 
270 Seiten, komlett mit Disk 
3-89058-038-6 DM46,- 


Apple Pascal 

Trickkiste 

DeGroat 


NEU! 



Utilities, Informationen, Tips 
und Tricks: 

P-Code-Decodierer, File-Kon- 
verter (von DOS nach Pascal 
und zurück), Disk-Zapper, Gra¬ 
fik-Routinen, Textfbrmatierer, 
verbesserte Ein-/Ausgabe-Pro- 
zeduren u.a.m. 

248 Seiten, komplett mit Disk 
3-89058-032-7 DM 48. 


Eine komplette Beschreibung 
der Schaltungen, RAM, ROM, 
I/O, Video, etc.. Unverzichtbar 
für den Entwickler und Techni¬ 
ker, interessant für jeden App¬ 
le Ile-Besitzer, der sich über 
die Funktionsweise seines 
Computers informieren will. 

Ca. 350 Seiten, DIN A4 
3-89058-040-8 DM78,- 



Programme, mit denen Siedle 
Grafikmöglichkeiten des Apple 
voll ausschöpfen. DESIGNER: 
Entwurf eigener Zeichensätze. 
GREDfT: komplexer Grafikedi¬ 
tor. PRINTFOTO; Grafikdump 
auf den Drucker. Viele fertige 
Prozeduren zum Einbauen. 

280 Seiten, komplett mit Disk 
3-89058-011-4 DM49,- 


Applesoft 

Trickkiste 

Goiding 


INPUT-ANYTHING. PRINT 
USING, schnelle Garbage Col¬ 
lection und viele andere nütz¬ 
liche Utilities, dazu detaillierte 
Informationen über die Arbeits¬ 
weise des BASIO Interpreters, 
Einsprungadressen, System¬ 
variablen. 

304 Seiten, komplett mit Disk 
3-89058-035-1 DM44, 


Rückaaberecht! 

Wenn Ihnen ein Titel wider Erwarten 
nicht gefällt, dann senden Sie ihn 
innerhalb von 10 Tagen zurück und 
bekommen den Kaufpreis erstattet! 
Gilt für Bücher und Software! 


Name: 

Anschrift: 


O V-scheck Liegt bei (Spesenfreie Lieferung) 

O per Nachnahme (zzgi. DM 3, - Versandspesen) 


Anz Titel oder ISBN-Nummer 


Preis 
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Bild 1 



Bild 2 



1. Zeigt den CATALOG des aktiven Dis¬ 
kettenlaufwerks an. 

2. Lädt eine Grafik vom aktiven Laufwerk 
in den Speicher. 

3. Schreibt die im Speicher befindliche 
Grafik in zwei Binärfiles auf der aktiven 
Diskette. 

4. Wählt das aktive Laufwerk aus. 

5. Ermöglicht Ihnen jeden gewünschten 
PLOT.HELP.-File nochmals zu lesen. 

6. Startet, abhängig von der von Ihnen 
verwendeten Version, entweder das Pro¬ 
gramm SUPERDUMP aus Peeker, Heft 6/ 
85 (von Sammeldisk #5) oder druckt die 
Grafik direkt aus. Lesen Sie bitte hierzu 
Abschnitt 5. 

0. Bringt Sie schließlich wieder sicher ins 
Hauptmenü zurück. 

Probieren wir zuerst 3 aus. PLOT.3.E bittet 
Sie, einen File-Sammelnamen einzuge¬ 
ben. KREISE wäre keine schlechte Idee. 
Kurze Zeit später erscheint wieder das 
Disk-Menü. Der CATALOG (Option 1) ent¬ 
hält nun zwei Binärfiles mehr, der eine 
heißt KREISE.A, der andere KREISE.M, 
beide sind je 34 Sektoren lang. 

Löschen Sie nun die Grafik und wählen 
Sie Disk-Menü-Option 2. Geben Sie als 
Sammelnamen wieder KREISE ein. Nach 
kurzer Zeit ist das alte Bild wieder zu 
sehen. 

Option 4 zeigt zuerst die Slot-Drive-Kom- 
bination des aktiven Laufwerks an. Tippen 
Sie nun zuerst auf eine der Tasten 1 bis 7, 
je nachdem, unter welcher Slotnummer 
das gewünschte Laufwerk zu finden ist. 
Dann tippen Sie bitte noch auf 1 oder 2, je 
nachdem, welches Laufwerk Sie letztend¬ 
lich wünschen. Achtung! PLOT.3.E prüft 
nicht nach, ob unter der aktuellen Slot- 
Drive-Kombination auch ein Laufwerk zu 
finden ist. Der entstehende I/O-Error ist 
jedoch nicht weiter tragisch. 

Tippen Sie nun Im Disk-Menü auf 0, dann 
gleich nochmals, und Sie sind fertig. Sie 
haben alle Funktionen von PLOT.3.E ken¬ 
nengelernt. 


3. Technische Erläuterungen 

3.1. zum Applesoft-Programm 

Das Applesoft-Programm ist mit einigen 
Ampersand-Befehlen (&) angereichert: 

Zuerst die Grafik-Befehle; 

& HPLOT x1,y1 (TO x2,y2) - ist syntak¬ 
tisch wie der Applesoft-Befehl HPLOT 
aufgebaut, bietet auch die gleichen Mög¬ 
lichkeiten. Er arbeitet nur in doppelt hoch¬ 
auflösender Grafik. 

& HGR - Schaltet Double-Hires-Grafik ein 
und löscht den Bildschirm. 
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& HGR2 - Schaltet Double-Hires-Grafik 
ein, ohne den Biidschirm zu löschen. 

& TEXT - Schaltet von der Doubie-Hires- 
Grafik auf 40-Zeichen-Textdarstellung zu¬ 
rück. 

Nun die restlichen &-Befehle: 

& POS (x,y) ist ein Text-Befehl für die 80- 
Zeichendarstellung und positioniert den 
Cursor in Spalte x, Zeile y. 

& FN, F$- liest eine BASIC-Funktion von 
der Tastatur ein und übergibt diese einmal 
als FN Y(X) an das Flauptprogramm, ande¬ 
rerseits als String an die Stringvariable F$. 

Die grundlegende Arbeitsweise des Pro¬ 
gramms werde ich diesmal nicht erörtern, 
da diese Algorithmen im wesentlichen un¬ 
verändert geblieben sind. Lediglich ihre 
Formulierung in Applesoft und vor allem 
die Reihenfolge im Programmtext haben 
sich geändert. 

So gibt es nun einen einheitlichen Aufbau. 
Die Zeilen 1010 bis 4900 enthalten Sub¬ 
routinen, dann schließt sich das Disk-Me¬ 
nü an, gefolgt vom Programmkern mit In¬ 
itialisierungsteil ab Zeile 6000 und Haupt¬ 
menü ab Zeile 6460. Zum Schluß folgt 
noch der Programmteil, der aufgerufen 
wird, wenn PLOT.3.E versehentlich direkt 
durch RUN PLOT.3.E gestartet wurde, oh¬ 
ne den Pointer in der Zero-Page $0067 
heraufzusetzen. 

Eingehendere Erläuterungen unterlasse 
ich, da das Programm sich recht gut selbst 
dokumentiert und sich außerdem seit 


PLOT.2.0 die Algorithmen nicht grundle¬ 
gend geändert haben. 


3.2. Zum Assemblerprogramm 

Sie haben sicherlich bemerkt, daß das As¬ 
semblerprogramm nur auszugsweise ab¬ 
gedruckt ist. Es umfaßt im Original nämlich 
940 Zeilen, zum Abdrucken etwas zuviel. 
Daher bringen wir nur den Hexdump des 
Programms komplett, außerdem noch ei¬ 
nen Auszug aus dem Assemblerlisting. 
Das komplette Listing ist auf der Sammel¬ 
diskette zu finden. 

Genauer eingehen möchte ich daher auch 
nur auf den Algorithmus, der hinter dem 
veröffentlichten Auszug steckt. Es geht 
um den Algorithmus, mit dem man Linien 
zwischen zwei Punkten zieht. Dazu möch¬ 
te ich etwas weiter ausholen: 


3.2.1, Der normale Treppen¬ 
algorithmus 

Stellen Sie sich einen Maschendraht vor, 
dazu ein Stück Bindfaden und spannen 
Sie in Gedanken den Bindfaden zwischen 
zwei Kreuzungspunkten. Frage: Wie oft 
trifft der Bindfaden genau einen Kreu¬ 
zungspunkt? Im Allgemeinfall wird das 
nicht allzuoft passieren. Dieses Problem 
besteht auch, wenn Sie unter Rastergrafik 
zwei Punkte durch eine Gerade verbinden 
wollen. Man behilft sich heutzutage da¬ 



Yb.:i 




± Y a .i 


h-AX = 11-H 

Xa Xb 


Bild 4 


durch, daß man die Gerade durch eine Art 
Treppenlinie annähert. Das geht recht 
schnell und ist einfach in Maschinenspra¬ 
che zu formulieren. Auch das Applesoft- 
ROM geht so vor. Die Geraden sehen 
dann, vergrößert abgebildet, so aus, wie 
es das Bild 5 darstellt. 


3.2.2. Heuristische Herleitung 
des Algorithmus 

Betrachten Sie bitte Bild 4. Von den bei¬ 
den eingezeichneten Geraden interessiert 
uns momentan nur die untere, d.h. Gerade 
gi. Sie geht vom Anfangspunkt Ai mit den 
Koordinaten (xa.i, yA.i) zum Endpunkt Bi 
(%i. ye.i)' Hervorgehoben sind außerdem 
die Punkte Pi und Qi. Sie werden durch 
den Treppenalgorithmus gefunden. 


Das zentrale Problem ist, ein Kriterium zu 
finden, das etwas darüber aussagt, ob ein 
Punkt oberhalb oder unterhalb der zu 
zeichnenden Gerade liegt. Betrachten wir 
nun die Punkte Pi, Qi und Bi. 


Bi liegt naturgemäß genau auf gi. Be¬ 
zeichnen wir mit nx (P) die Anzahl der 
Schritte in x-Richtung bis zum Punkt P, 
analog ny (P). Dann führen wir noch Ax 
und Ay als die Differenz der Koordinaten 
von Anfangs- und Endpunkt. Somit gilt: 


(1) lÄ . ^ 

nx(B) AX 


( 2 ) 


nv(P) ^ 

nx(P) AX 


(3) 


nv(Q) ^ ^ 
nx(Q) AX 


Es ist nicht einzusehen, warum wir nicht 
verallgemeinern dürfen, d.h. Gleichung (1) 
ist nur erfüllt, wenn der Punkt auf der 
Geraden liegt, und die Ungleichungen (2) 
und (3) gelten, wenn der Punkt unterhalb 
bzw. oberhalb der Geraden liegt. Dies 
könnte schon das gesuchte Kriterium dar¬ 
stellen, erweist sich jedoch als rechne¬ 
risch zu aufwendig. Darum formen wir die 
drei Beziehungen elementar um zu: 


(1a) Cx (P) AY - ny (P) Ax = 0 
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(2a) Px (P) AY - ny (P) Ax > 0 
(3a) Px (P) AY - Py (P) Ax < 0 
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Das sieht schon viel besser aus: Nennen 
wir den Term auf der linken Seite einmal 
D. Wenn man von diesem D bei jedem 
Zeichenschritt in y-Richtung die Differenz 
der x-Komponenten von Anfangs- und 
Endpunkt subtrahiert, bei jedem Schritt in 
x-Richtung jedoch die der y-Komponenten 
dazuaddiert, so ist D dann und nur dann 
gleich null, wenn der gerade gezeichnete 
Punkt auf der Geraden liegt. D ist kleiner 
als null, wenn der Punkt unterhalb, größer 
als null, wenn der Punkt oberhalb der Ge¬ 
raden liegt. Ich formuliere den Algo¬ 
rithmus; 

Führe beim Zeichnen zusätzlich eine Sal¬ 
dovariable D. Setze D beim Beginn jede 
Gerade auf 0. Subtrahiere von D bei jedem 
Schritt in y-Richtung den Betrag von Ax, 
addiere zu D bei jedem Schritt in x-Rich- 
tung den Betrag von Ay. Ist nun D größer 
als null, gehe beim nächsten Schritt in y- 
Richtung, ist D kleiner als null, gehe in x- 
Richtung. Wiederhole dies bis zum End¬ 
punkt. Das ist im wesentlichen der Trep¬ 
penalgorithmus, mit dem bespielsweise 
Applesoft arbeitet. Hier betrachten wir nur 
Geraden einer speziellen Orientierung. 
Die o.g. Beziehungen sind jedoch auch 
auf allgemeine Geraden anwendbar. Man 
betrachtet die Geraden, als seien sie wie 
die Geraden in Bild 4 orientiert, und führt 
unabhängig davon die echten Bildschirm¬ 
koordinaten. 



Bild 6 


3.2.3. Nachteile des Treppen¬ 
algorithmus 

Der oben vorgestellte Algorithmus mag 
angehen, wenn man beispielsweise über 
die Auflösung eines Hardwareplotters ver¬ 
fügt. Meiner Meinung nach versagt er 
spätestens dann, wenn man die einzelnen 
Pixel deutlich voneinander unterscheiden 
kann, wie das auch bei der Double-Hires- 
Grafik noch der Fall ist. Sehen Sie sich 
speziell unter diesem Gesichtspunkt die 
Geraden in Bild 5 an. Es ist eigentlich 
nicht einsichtig, warum die mittlere Gerade 
nicht durch im 45-Grad-Winkel versetzte 
Pixel dargestellt werden kann. Auf dieser 
Idee aufbauend, erweiterte ich den Trep¬ 
penalgorithmus ein wenig. 


3.2.4. Der modifizierte Treppen¬ 
algorithmus 

Betrachten Sie Bild 6! Die Geraden sind 
identisch mit denen in Bild 5, nur anders 
approximiert. Hier wird nun, abhängig von 
der Geradensteigung, statt einem Schritt 
in x-(y-)Richtung ein Schritt im 45-Grad- 
Winkel gezeichnet. Ist die Steigung größer 
als 45 Grad, wird der Schritt in x-Richtung 
ersetzt, sonst der Schritt in y-Richtung. 
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Checkmate Technology 


™ Speichererweiterungen 

mit Zukunft 

_ für Apple Ile un d Apple IIc 

Multiram Leistungsmerkmale: 

• 16bit CPU Port 

• 65C816 Coprozessor, der den Multiram Speicher 
linear addressieren kann (sofort lieferbar) 

• inclusive Apple Works Memory Expander 
(endlich genug Speicherplatz für Appleworks) 

• inkl. Ramdisk Software für DOS und ProDos 

• Ramdisk für Pascal und CP/M optional 

speziell beim Apple Ile: 

• auf einer Karte bis max. 1MB erweiterbar 
mit Huckepackkarte auf 1,7 MB erweiterbar 

• kommt in Auxiliary Slot (3) 

• ersetzt erweiterte 80 Zeichen Karte 

• RGB Farboption lieferbar 

speziell beim Apple IIc: 

• bis 512k erweiterbar 

• ohne externes Laufwerk echt portabel 

panda>#Ft Dr.-Ing. Eden 

Kataloganforderung und Bestellung: Tel.: 030/31 04 23 ■ Telex 185859 
Uhlandstraße 195 • D-1000 Berlin 12 


Bkyan 

FÄSGÄL 

Pascal Compiler für Apple II (+,e,c) 

• erzeugt 6502 Assembler-Code 

• benötigt keine Z-80 Karte 

• läuft unter Prodos 

• integrierter Assembler 

• inclusive Editor (full screen) 

• mehrfach in Peeker getestet 

• neu: Kix eine Uni™ ähnliche 

Betriebssystem Umgebung 

Kennenlernaktion bis 30. Juni: 

Kyan 2.0 inkl. KIX: DM 198,- 

nach Ablauf der Kennenlernaktion: 

Kyan 2.0 alleine DM 198,00 
Kyan 2.0 inkl. Kix: DM 278,00 

Unix ist ein eingetragenes Warenzeichen der Bell Laboratories 


panda>#Ft Dr.-Ing. Eden 

Kataloganforderung und Bestellung: Tel.: 030/31 04 23 • Telex 185 859 
Uhlandstraße 195 • D-1000 Berlin 12 


Druckerinterfaces für Apple ll+/e/ 
printtr c/lll loterfaces auf dem neuesten 

Stand der Technik. Kompatibei mit allen gängigen Druckern wie: 
APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber¬ 
software wird über Dip-Switch ausgewählt 




GiSPPlCf ^ Grafikfähiges Druckerinterface 
r Iprinttrinteriflce das Reice Wünsche mehr offen läßt. 
Über 2 Dutzend Kommandos ermöglichen die volle Kontrolle 
über alle Möglichkeiten Ihres 
Druckers. Jetzt auch mit 
Ile Features: Double Hires 
Grafics und 80 Zeichen Dump 
mittels Druckerpuffer nachrüstbar 
über Bufferboard. 


Qiappler + 

ten 16 K Druckpuffer, der auf 
32 oder 64 K aufrüstbar ist. 


Besitzt alle Vorzüge des Grappier +, 
hat aber zusätzlich einen integrier- 



Serielles Druckerinterface 

speziell für den Apple Image- 
writer. 



OTum 


Seriell-nach-Parallel-Wandlerfür 
den IIc im Kabel integriert. 



RAPPLER C 


wie Hotlink, jedoch zusätzlich 
Imagewriter Emulation und Grafik 
Software-Diskette. 


panda>#Ft Dr.-Ing. Eden 

Kataloganforderung und Bestellung: Tel.: 030/31 04 23 • Telex 185859 
Uhlandstraße 195 • D-1000 Berlin 12 



Sie haben einen Apple .. 


wir haben die 
Software ... 


und die 
Hardware . 


*Fordem Sie unseren Gratiskatalog an! 

ALLES FÜR DEN APPLE 11+, Ile, IIc UND MACINTOSH 

Dr.-Ing. Eden^ 

Uhlandstraße 195 • D-1000 Berlin 12 


Tel.: 030/31 0423 • Telex 185859 
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Das läßt sich durch einen einmaligen Ver¬ 
gleich von Ax mit Ay erledigen. Ist Ay 
größer als Ax, so ist die Geradensteigung 
größer als 45 Grad. 


3.2.5. Implementierung 
in Assembler 

Die Zeilen 517 bis 753 des Assemblerli- 
stings sind abgedruckt. Der Einstieg in die 
Routine zum Geradenzeichen liegt in 
LINE. Zuerst werden die Differenzen der 
Anfangs- und Endkoordinaten berechnet, 
anschließend wird, falls nötig, durch Zwei¬ 
erkomplementierung der Absolutbetrag 
der Differenz gebildet. Ist die Differenz 
negativ, so wird gleichzeitig durch negati¬ 
ves XADD bzw. YADD die negative Lauf¬ 
richtung festgelegt. 

Sind die Differenzen bestimmt und die 
Laufrichtungen festgelegt, wird überprüft, 
ob eine Koordinatendifferenz identisch 
null ist. In diesem Fall wird die Gerade in 
XLINE bzw. YLINE getrennt weiterbear¬ 
beitet. 

Nun werden die Differenzen verglichen. 
Ist DX größer als DY, wird in der Variablen 
FLAG Bit 7 gesetzt. Die Saldovariable wird 
auf 0 gesetzt, ein Schrittzähler wird initiali¬ 
siert. Dann erfolgt in NOTREADY der Ein¬ 
stieg in die Zeichenschleife. Anschließend 
wird entschieden, ob der nächste Schritt in 
X- oder y-Richtung gehen soll. In XSTEP 
und YSTEP wird nun wie beschrieben die 
Saldovariable D aktualisiert, dann werden 
die nötigen Manipulationen am Grafikspei¬ 
cher vorgenommen, auf die ich hier nicht 
weiter eingehen möchte; sie sind in 
Peeker, 2/84 beispielsweise hinreichend 
beschrieben. Sind die Manipulationen vor¬ 
genommen, wird nachgeprüft, ob ein Dop¬ 
pelschritt fällig ist. In diesem Fall wird nicht 
gezeichnet, sondern erst der zweite 
Schritt abgewartet. Ist schließlich der 
Schrittzähler bei null angelangt, ist die Ge¬ 
rade fertig approximiert. 


4. PLOT.3.E und SUPERDUMP 

Läuft SUPERDUMP, das für Epson-FX80 
bzw. Imagewriter I vorgesehen ist, auf Ih¬ 
rem Drucker? Wenn ja, haben Sie ausge¬ 
sorgt. Ändern Sie die im Listing unter SU¬ 
PER DUMP. PATCH angegebenen Pro¬ 
gram mzeilen im SUPERDUMP. EPSON 
bzw. SUPERDUMP.IMAGEWRITER. Be¬ 
sitzen Sie die Sammeldiskette #5 (mit 
Aufsatz in Heft 6/85), haben Sie es noch 
einfacher. Laden Sie das Applesoft-Pro- 
gramm und geben Sie EXEC SUPER¬ 
DUMP.PATCH ein. Speichern Sie das ge- 
patchte Programm unter neuem Namen 
ab, fertig. Zur Bedienung von SUPER¬ 
DUMP lesen Sie bitte Peeker 6/85. 


PLOT.3.E ist in der Standardversion darauf 
eingerichtet, mit dem modifizierten SU¬ 
PERDUMP zusammenzuarbeiten. Die 
PLOT.3.E Grafikfiles können vom SUPER¬ 
DUMP gelesen werden, PLOT.3.E kann 
direkt SUPERDUMP aufrufen, das modifi¬ 
zierte SUPERDUMP ruft wieder PLOT.3.E 
auf. Benutzen Sie eine RAM-Disk, gibt es 
beim Laden der Programme fast keine 
Zeitverzögerungen. 

Anm.d.Red.: Es sei hier noch einmal dar¬ 
auf hingewiesen, daß das Applesoft-Pro- 
gramm SUPERDUMP einschließlich der 
Variablen genau vor der Hires-Seite 1 en¬ 
det. Wenn Sie also SUPERDUMP auch nur 
geringfügig ändern oder erweitern wollen, 
so entfernen Sie zunächst mit dem Ap- 
plesoft-MACROEDITOR (Sammeldisk 
#16) über das &K-Kommando alle REMs, 
womit SUPERDUMP erheblich kürzer wird 
und damit keine Speicherkonflikte auftre- 
ten können. 


5. Anpassung von PLOT.3.E 
an andere Gerätekonfigurationen 

Unter PLOT.PATCH finden Sie die Modifi¬ 
kationen, die Sie machen müssen, um auf 
einem EPSON FX-80/85 mit Grafikinterfa¬ 
ce direkt die Grafiken auszudrucken. Sie 
sparen sich dann den Umweg über SU¬ 
PERDUMP und erhalten außerdem ein 
ausführliches Protokoll mit Funktion, Dar¬ 
stellungsgrenzen und Parameterwerten. 
Inzwischen scheint sich ProDOS als neu¬ 
es Standardbetriebssystem durchzuset¬ 
zen. Unverträglichkeiten mit PLOT.3.E be¬ 
stehen zwar keine, doch sind Änderungen 
speziell im Disk-Menü angebracht. Es 
müßte derart modifiziert werden, daß statt 
der Slot-Drive-Kombination ein PREFIX 
einzugeben ist. Sollte Interesse daran be¬ 
stehen, bin ich gerne bereit, einen 
PATCH-File in einer der nächsten Peeker- 
Ausgaben zu veröffentlichen, der dies be¬ 
werkstelligt. 


6. Kurzhinweise 

1. Zweck: 

Erstellung grafischer Darstellungen von 
Funktionen einer reellen Veränderlichen in 
doppelt hochauflösender Grafik 

2. Konfiguration: 

Apple Ile mit 64K-Karte oder llc; DOS 3.3; 
Drucker optional, SUPERDUMP empfeh¬ 
lenswert 

3. Test: 

EXEC PLOT.3.PRO 

4. Sammeldisk: 

PLOT.3.PRO 

PLOT.3.E 

PLOT.BX 

T.PLOT.BX 


PLOT.HELP.1 

PLOT.HELP.2 

PLOT.HELP.3 

PLOT.HELP.4 

PLOT.HELP.5 

PLOT.PATCH 

SUPERDUMP.PATCH 


Hinweise für „Eintipper“ 

PLOT.3.E läßt sich wie üblich eingeben. 
Schwieriger ist es dagegen, die einzelnen 
„PLOT.HELP.“-Files einzugeben. Da Ap¬ 
plesoft Kommata im INPUT-Befehl nicht 
zuläßt, muß jede Zeile mit einem Gänse¬ 
füßchen (“ = CHR$(34)) beginnen! Die 
Zeilen sollten nicht länger als 79 Zeichen 
sein! Besitzen Sie keinen Texteditor, müs¬ 
sen Sie die einzelnen Zeilen als DATA- 
Statements in ein BASIC-Programm ein¬ 
geben, das dann später diese als Strings 
mit vorangestelltem “ in den Textfile über¬ 
trägt. Sind Sie damit fertig, dürfen Sie „zur 
Erholung“ den Hexdump der Assem¬ 
blerroutinen eintippen. 


7. Literaturhinweise 

-PLOT.2.0, Peeker 5/85, S. 17ff 
-SUPERDUMP von D. Geiß, Peeker 6/85, 

S. 22ff 

-Apple DOS 3.3 von U. Stiehl, S. 41-43 
-Mikrocomputer-Grafik von R. E. Myers 


8. PLOT-Hilfemenüs 

Wichtig: Vergessen Sie nicht, am Ende jedes 
Flelpfiles die Marke .EOF anzuhängen. Sonst 
findet PLOT.3.E nicht das Ende des Files, und 
das Programm kann mit einer Fehlermeldung 
abgebrochen werden! 

PLOT.HELP.1 

PLOT.3.E - Ein Funktionsplotprogramm 

Dieses Programm nennt sich PLOT.3.E. Es 
stellt Funktionen einer reeilen Veränderiichen 
auf dem Biidschirm der Apple-Computer-Typen 
//e und //c grafisch dar. 

Da dabei die sogenannte doppelt hochauflösen¬ 
de Grafik dieser Rechner verwendet wird, müs¬ 
sen Sie zusätzlich im Apple //e eine erweiterte 
80-Zeichenkarte installieren. Der Apple //c be¬ 
nötigt keine zusätzliche Hardware. Um eine be¬ 
friedigende Auflösung zu erreichen, ist jedoch 
ein Monochrom-Monitor empfehlenswert. 

Ist ihr Computer zusätzlich an einen grafikfähi¬ 
gen Drucker angeschlossen, können Sie mit 
dem Programm SUPERDUMP (Peeker 6/85, 
Sammeldiskette #5) Ihre Grafiken ausdrucken. 
Beachten Sie jedoch bitte zusätzlich den zu 
PLOT.3.E gehörigen Artikel, Abschnitt ’PLOT 
.3.E und SUPERDUMP’. 

Die Funktion wird in einem Achsenkreuz ge¬ 
zeichnet, die Achsen werden mit Skalenmarkie- 
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rungen versehen. Auf dem längeren Ast jeder 
Achse werden mindestens zwei, maximal 19 
Markierungen angebracht. Den Abbildungs¬ 
maßstab können Sie relativ frei festlegen. Dies 
geschieht, indem Sie die von Ihnen gewünsch¬ 
ten Darstellungsgrenzen eingeben. Bei deren 
Eingabe müssen Sie lediglich darauf achten, 
daß die 0 im Darstellungsintervall jeder Achse 
vorkommt. Sonst könnte kein Achsenkreuz ge¬ 
zeichnet werden. 

Natürlich müssen Sie auch die zu zeichnende 
Funktion eingeben. Diese muß als korrekte Ap- 
plesoft-BASIC-Funktion eingegeben werden. 
Sollten Sie sich darin nicht auskennen, rufen 
Sie bitte im Programmteil ’Funktionseingabe’ 
die dazu bereitgehaltenen Informationen ab. 
Punkte, an denen die Funktion nicht definiert ist 
(z.B. Polstellen), werden intern abgefangen, das 
Zeichnen wird solange unterbrochen, bis die 
Funktion wieder reelle Werte annimmt (die im 
Darstellungsintervall liegen). 

Zusätzlich zur unabhängigen Variablen X kön¬ 
nen Sie in der Funktion die Parameter R,S und T 
verwenden. Sie können die Funktion mehrmals 
mit verschiedenen Parameterwerten zeichnen 
lassen. So können Sie ganze Funktionenscha¬ 
ren darstellen lassen. T nimmt unter den Para¬ 
metern eine Sonderstellung ein Wenn T mit 
einer festen Schrittweite zu- oder abnehmen 
soll, können Sie sich die ständige Neueingabe 
sparen und statt dessen nur Anfangs-, Endwert 
und Schrittweite festlegen. Die Funktionsschar 
wird dann automatisch gezeichnet. 

Wenn Sie die Eulersche Zahl e oder die Kreis¬ 
zahl pi in der Funktion benötigen, brauchen Sie 
diese nicht im ganzen einzutippen. Im Pro¬ 
gramm sind die Variablen PI und E vordefiniert. 
Den dekadischen Logarithmus können Sie als 
FN LG(X) aufrufen. 

Während des Zeichenvorgangs können Sie 
durch Betätigen der Leertaste auf Textdarstel¬ 
lung umschalten. Dort finden Sie alle Ihre Ein¬ 
gaben nochmals aufgeführt. Nochmaliges Betä¬ 
tigen der Leertaste läßt die Grafik wieder er¬ 
scheinen. Stellen Sie beim Zeichnen fest, daß 
die Grafik nicht so wird, wie Sie es sich vorstell¬ 
ten, können Sie durch gleichzeitiges Betätigen 
der 'Ctrl'- und der ’C’-Taste den Zeichenvor¬ 
gang abbrechen. Das Programm springt dann 
ins Hauptmenü, das sonst erst erreicht wird, 
wenn die Grafik fertig gezeichnet ist. 

Von diesem Programmteii aus können Sie alle 
Funktionen von PLOT.3.E aufrufen (Neueinga¬ 
be von Funktion, Parametern und Darstellungs¬ 
grenzen, Löschen des Bildschirms, Darstellung 
aller eingegebenen Daten, von neuem zeichnen 
und auf die Diskettenlaufwerke zugreifen). 

.EOF 

PLOT.HELP.2 

PLOT.3.E - Eingabe der 
Darstellungsgrenzen 

Bei der Eingabe der Darstellungsgrenzen haben 
Sie die Wahl; 

Entweder Sie geben die Darstellungsintervalie 
beider Funktionen explizit ein. Das ist sicher der 
einfachste Weg, hat jedoch auch seine Nachtei- 
ie. Oder Sie geben die Darstellungsgrenzen für 
eine Achse ein, für die andere Anfangs- und 
Endwert 0. Dann wird in x- und y-Richtung mit 
dem gleichen Maßstab abgebildet, 
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Gegen die erste Mögiichkeit spricht, daß die 
Abbildungsmaßstäbe der beiden Achsen abso¬ 
lut nichts miteinander zu tun haben. Nur wenn 
X- und Y-Achse auf denselben Maßstab abbll- 
den, erkennt man solche Feinheiten, wie etwa, 
daß die Sinusfunktion in den Nullstellen die 
Steigung -l-l oder -1 hat. Gegen die zweite 
Möglichkeit spricht jedoch, daß dann die beiden 
nicht eingegebenen Grenzen symmetrisch zum 
Ursprung festgelegt werden. Das kann gut ge¬ 
hen, das Ergebnis ist jedoch oft nicht allzu be¬ 
friedigend. 

An dieser Stelle noch einmal die Bitte: Sorgen 
Sie dafür, daß in jedem Darstellungsintervall die 
0 liegt oder zumindest als Grenze eingegeben 
wird. Da sonst kein Achsenkreuz gezeichnet 
werden könnte, setzt das Programm für diesen 
Fall die betragsmäßig kleinere Grenze auf 0! 

Die Eingabeprozedur selbst läuft wie folgt ab: 
Zuerst werden Sie gebeten, den Anfangswert 
für die X-Achse anzugeben. Tun Sie dies, be¬ 
achten Sie dabei jedoch die amerikanische No¬ 
tation (’.’ statt Dezimalkomma). Dann schließen 
Sie bitte die Eingabe mit der ’Return’-Taste ab. 
Genauso geht es mit dem Endwert der X-Achse 
und dann mit Anfangs- und Endwert der Y- 
Achse weiter. Anschließend werden Ihre Einga¬ 
ben analysiert. Dabei werden eventuell ver¬ 
tauschte Anfangs- und Endwerte ausgetauscht, 
dann wird geprüft, ob der Anfangswert jeder 
Achse kleiner oder gleich 0 und ob der Endwert 
jeder Achse größer oder gleich 0 ist. Ist dies 
nicht der Fall, wird der falsche Wert auf 0 ge¬ 
setzt. Anschließend wird überprüft, ob für eine 
Achse Anfangs- und Endwert 0 eingegeben 
wurden. Ist dies der Fall, so werden die Darstel¬ 
lungsgrenzen derart festgelegt, daß X- und Y- 
Achse den gleichen Maßstab besitzen. 

Haben Sie die Darstellungsgrenzen schon ein¬ 
mal eingegeben, sind jedoch mit dem Ergebnis 
nicht ganz zufrieden, so haben Sie wiederum 
die Wahl; 

Sie können entweder die Darstellungsgrenzen 
komplett neu eingeben oder die Achsen direkt 
manipulieren. Näheres zur letzten Möglichkeit 
entnehmen Sie bitte den getrennt dazu abrufba¬ 
ren Informationen. 

.EOF 


PLOT.HELP.3 

PLOT.3.E - Achsenmanipulation 

Sie haben folgende Möglichkeiten der direkten 
Achsenmanipulation: 

1 - Achsen strecken oder stauchen 

2 - Manipulation des Verhältnisses der positiven 
zur negativen Halbachse 

Zu 1; Nehmen wir einmal an, die Grafik sei 
schon ganz ansprechend, nur Sie wünschen 
eine höhere Aufspreizung der Grafik in y-Rich¬ 
tung. Sagen wir. Sie wollen um einen Faktor 2 
spreizen. Dann haben Sie entweder die Mög¬ 
lichkeit, die bisherigen Darstellungsgrenzen für 
die y-Achse im Kopf durch 2 zu dividieren und 
neu einzutippen. Das muß aber nicht sein. 
Ebenso können Sie, nachdem Sie diese Erläu¬ 
terungen gelesen haben, auf die Frage 'Y-Ach¬ 
se strecken?’ mit ’J’ antworten. Dann müssen 
Sie nur den Streckfaktor angeben, und zwar 
nicht als unhandlichen Dezimalbruch, sondern 
fast als echten Bruch. Wenn Sie nun auf die 
Frage 'Verhältnis alte ...’ ’zu neuen Grenzen’ 2 


und 1 eingeben, werden Sie anschließend an¬ 
genehm überrascht feststellen, daß das Pro¬ 
gramm Ihnen das Kopfrechnen abgenommen 
hat. 

Das ist der ganze Trick. Wie wertvoll diese 
Option ist, werden Sie feststellen, wenn Sie 
einmal versuchen, zwei siebenstellige Zahlen 
im Verhältnis 17 zu 13 zu teilen. Viel Vergnü¬ 
gen... 

Zu 2: Nun stellen Sie sich vor. Sie lassen eine 
Funktion in einem symmetrischen Achsenkreuz 
zeichnen. Sie stellen aber beim Zeichnen fest, 
daß das untere Viertel des Bildschirms nicht 
genutzt wird. Nützlich wäre es da, wenn man 
einfach dem Computer sagen könnte: ’Hör ’mal, 
der Maßstab war ja ganz gut. schiebe doch beim 
nächsten mal die X-Achse einfach um ein Vier¬ 
tel oder so nach unten.’ Genau das können Sie 
bei PLOT.3.E auch. Dies geschieht, indem Sie 
angeben, in welchem Verhältnis der positive 
und der negative Teilast einer Achse zueinan¬ 
der stehen sollen. Bei unserem Beispiel wäre 
das ein Verhältnis von 2:1. Eingegeben wird das 
ganze wie oben bei der Streckung der Achsen. 
Das hörte sich jetzt alles komplizierter an, als es 
in Wirklichkeit ist. Probieren Sie es am besten 
mal aus. Wenn es nicht klappt, gehen Sie die 
Beispiele Schritt für Schritt durch, die im zu 
diesem Programm gehörenden Artikel aufge¬ 
führt sind. Wie gesagt, so kompliziert ist’s nicht. 
.EOF 

PLOT.HELP.4 

PLOT.3.E - Funktionseingabe 

Computer sind in mancher Hinsicht ziemliche 
Dummköpfe, gepaart mit dem Hang zu einer 
gewissen Dickschädeligkeit. Darum geben Sie 
es auf, dem Computer eine Funktion ’f(x) = sin 
x’ vorzusetzen. Ein wahrer Apple moniert da 
stur einen ’? SYNTAX ERROR*. (Den nun fol¬ 
genden Abschnitt können Besitzer eines Apple 
//c oder Apple //e mit neuen ROMs über¬ 
springen) 

Zuallererst drücken Sie die 'Caps Lock’-Taste 
(unten links auf der Tastatur) so, daß sie einra¬ 
stet. Applesoft-BASIC akzeptiert in arithmeti¬ 
schen Ausdrücken einzig und allein Großbuch¬ 
staben. 

In BASIC gibt es folgende Verknüpfungszei¬ 
chen: 

-h : Addition oder positives Vorzeichen 
- : Subtraktion oder negatives Vorzeichen 
^ : Multiplikation 
/ ; Division 

Applesoft-BASIC verlangt, daß alle Multiplika¬ 
tionen ausgeschrieben werden. Ein Ausdruck 
wie ’3(X-T)’ ist für Sie das Einfachste auf der 
Welt, für den Computer schlicht und ergreifend 
ein Syntax-Fehler. Ebenso gilt ein Divisionszei¬ 
chen nur für den nächsten Wert, im Gegensatz 
zum Bruchstrich. Wollen Sie längere Brüche 
ausdrücken, müssen Sie Zähler und Nenner 
einklammern. Im Zweifelsfalle verwenden Sie 
lieber ein Klammernpaar mehr. 

Es gibt folgende eingebauten Funktionen: 

SIN (X) : Sinus von X, Argument im Bogenmaß 
COS (X) : Cosinus von X, Argument im Bo¬ 
genmaß 

TAN (X) : Tangens von X, Argument im Bo¬ 
genmaß 
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ATN (X) : Arcustangens von X, Ergebnis im 
Bogenmaß 

SQR (X) : Quadratwurzel aus X 
X t R : von X wird die R-te Potenz gebildet 
X t (1 /R) : aus X wird die R-te Wurzel gezogen 
EXP (X) : Exponentialfunktion zur Basis e 
LOG (X) : natürlicher Logarithmus (Basis e) 

INT (X) : (Gauß-Klammer) liefert größte ganze 
Zahl, die kleiner als X ist 
ABS (X) : Absolutbetrag von X 
SGN (X) : Signumfunktion. Liefert 0 für X=0, 
fürX>0, -1 fürX<0 

So nun sollen Sie noch sehen, wie eine 'legale’ 
Funktion aussieht: Das Programm gibt Ihnen 
’Y= ’ vor. Nun müssen Sie nur noch nach den 
obenstehenden Regeln eine Funktion zusam¬ 
menbasteln. Das sieht dann so aus: 

Y= SIN(X)*COS(X) 

Y= -(X-1)/(Xt2-X + 3) 

Y= T/X (übrigens, T ist so ein mysteriöser 
Scharparameter) 

Y= INT(X) (Treppenfunktion) 

Y= X- INT(X) (Sägezahnfunktion) 

Y= LOG(X)/LOG(R) (liefert Logarithmus zur 
Basis R) 

Andere Beispiele finden Sie im zu diesem Pro¬ 
gramm gehörenden Artikel. 

.EOF 


PLOT.HELP.5 

PLOT.3.E - Diskmenü 

Sie können vom Disk-Menü aus folgende Dis¬ 
kettenoperationen ausführen: 

1. Das Inhaltsverzeichnis der Diskette abrufen. 

2. Grafikfiles auf Diskette abspeichern und von 
Diskette laden. 

3. Erläuterungen zum Programm abrufen. Das 
tun Sie gerade. 

4. Das aktive Laufwerk auswählen. 

5. Je nach Version können Sie Superdump 
aufrufen oder direkt die Grafik auf einem grafik¬ 
fähigen Matrixdrucker ausdrucken lassen. 

ad 2. Eine Grafik wird auf Diskette in zwei 
getrennten Binärfiles abgespeichert. Dabei wer¬ 
den zu den von Ihnen eingebenen Filenamen 
die Suffixe ’.M’ und ’.A’ hinzugefügt. Wenn Sie 
diese Files wieder einiesen wollen, so lassen 
Sie bitte die Suffixe weg. 

Diese Option wurde vor allem deshalb einge¬ 
richtet, damit Sie Grafiken, die mit PLOT.3.E 
erstellt wurden, mit dem Programm Superdump 
(in Peeker 6/85 und auf Sammeldisk #5) auf 
einem Matrixdrucker ausdrucken können, 
ad 4. Mit dieser Option können Sie jede Slot/ 
Drivekombination auswählen, die sinnvoll ist, 
Logischerweise ist Slot 0 ausgeschlossen. Sinn 
dieser Option ist es, Grafikfiles auf einer schnel¬ 
len RAM-Disk abzuspeichern, dann Superdump 
zu laden und die Grafik wieder in den Speicher 
zurückzuholen. So kommen Sie ohne nennens¬ 
werten Zeitverlust zu Ihren Grafik-Ausdrucken. 
Sind Sie im Besitz eines Druckerinterfaces mit 
Double-Flires-Software, so ändern Sie bitte 
PLOT.3.E wie in Peeker 6/86 beschrieben ab. 
Dann erstellt PLOT.3.E direkt einen Ausdruck 
der Grafik, zusätzlich jedoch werden die Funk¬ 
tion, der Darstellungsbereich und alle verwen¬ 
deten Parameter ausgedruckt. 

.EOF 


PLOT.BX (Hexdump) 

BSAVE PLOT.BX, A$0B00, L$054D 


$0B00 

48 

A9 

65 

80 

F6 

03 

A9 

0C 

$0B08 

80 

F7 

03 

68 

60 A5 

B8 

48 

$0B10 

A5 

B9 

48 

A9 

59 

20 

5C 

DB 

$0B18 

A2 

BO 

20 

2E 

05 

20 

6C 

D5 

$0B20 

A0 

00 

84 

B8 

A9 

09 

85 

B9 

$0B28 

B9 

07 

0C 

F0 

05 

91 

B8 

C8 

$0B30 

00 

F6 

B9 

F6 

01 

91 

B8 

F0 

$0B38 

03 

C8 

00 

F6 

A0 

00 

8C 

B9 

$0B40 

0B 

84 

FF 

A9 

0A 80 

BA 

0B 

$0B48 

B9 

FO 

01 

F0 

38 

30 

09 

20 

$0B50 

BF 

0B 

20 

B8 

0B 

C8 

00 

F0 

$0B58 

48 

A9 

20 

20 

B8 

0B 

38 

68 

$0B60 

E9 

C2 

90 

15 

AA 

BD 

DD 

0B 

$0B68 

AA 

BD 

E9 

Dl 

10 

01 

18 

29 

$0B70 

7F 

20 

B8 

0B 

E8 B0 

F2 

90 

$0B78 

DC 

A2 

FD 

A9 

3F 

20 

B8 

0B 

$0B80 

E8 

00 

FA 

F0 

00 

20 

Bl 

00 

$0B88 

20 

13 

E3 

68 

85 

B9 

68 

85 

$0B90 

B8 

20 

Bl 

00 

20 

BE 

DE 

20 

$0B98 

E3 

OF 

24 

11 

10 

15 

A0 

00 

$0BA0 

AD 

B9 

0B 

91 

83 

C8 

A9 

00 

$0BA8 

91 

83 

C8 

A9 

0A 91 

83 

20 

$0BB0 

A9 

0C 

60 

A2 

A3 

4C 

12 

D4 

$0BB8 

80 

00 

0A 

EE 

B9 

0B 

60 

08 

$0BC0 

A2 

02 

DD 

07 

0B 

F0 

05 

CA 

$0BC8 

10 

F8 

28 

60 

48 

BD 

DA 

0B 

$0BD0 

05 

FF 

85 

FF 

68 

28 

60 

52 

$0BD8 

53 

54 

01 

02 

04 00 

02 

06 

$0BE0 

0A 

0C 

0F 

13 

14 

15 

16 
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^ quApik 


PL0T.3.E (Applesoft-Programm) 


1910 HOME : PRINT "Bitte Darstellungsgrenzen eingeben! 

Wünschen Sie Erläuterungen? <J/N>"; 

1920 GOSUB 3400: IF A$ = "N" THEN PRINT ; VTAB 17: GOTO 

1000 GOTO 6000: REM Subroutinen folgen 


1950 

1010 REM Subroutine Zeichnen 


1930 ID$ = "2": GOSUB 5510 

1020 IF F$ = "" OR XL = YH AND YL = XH THEN RETURN 


1940 HOME : PRINT "Bitte Grenzen eingeben 1" 

1030 X0 = 0;ST = 1 / MX: REM Initialisierung 


1950 CY% = 6:CX% = 0: & POS {CX%,CY%): CALL CL%: INPUT 

1040 IF RIGHT$ (P$,I) = "K" THEN FOR T = T0 TO TI STEP 


"Minimum für X: ";XL 

TS; REM Starte T-Schleife 


1960 CX% = 40: & POS (CX%,CY%)-. CALL CL%: INPUT "Maximum 

1050 GOSUB 3300:XA = XL: REM Generiere Liste in Textseite 


für X: ";XH 

1060 X = XA; IF X > XH THEN 1160: REM Start x-Schleife 


1970 CY% = 9:CX% = 0: & POS (CX%.CY%): CALL CL%\ INPUT 

1070 IF PEEK (KE%) > 127 THEN GOSUB 1500: REM 


"Minimum für Y: ";YL 

umschalten? 


1980 CX% = 40: & POS (CX%.CY%)\ CALL CL%: INPUT "Maximum 

1080 IF PEEK (PG%) THEN & POS (14,20): PRINT X;: CALL 


für Y: ":YH 

CL%: REM PRINT, wenn Textseite aktiv 


1990 IF XL > XH THEN X = XL:XL = XH:XH = X 

1090 IF NOT X0 THEN X0 = FN XS(X):Y0 = FN YS( FN Y{X)): 


2000 IF YL > YH THEN X = YL:YL = YH:YH = X 

GOTO 1160: REM Ausgangspunkt 


2010 IF YL > 0 THEN YL = 0 

1100 XI = FN XS(X):Y1 - FN YS( FN Y(X)): REM Endpunkt 


2020 IF YH < 0 THEN YH = 0 

1110 IF Y1 < 0 THEN Y1 = 0: REM gegen 'illegal Quantlty' 


2030 IF XL > 0 THEN XL = 0 

1120 IF YI > 191 THEN Y1 = 191 


2040 IF XH < 0 THEN XH = 0 

1130 IF Yl = 191 AND Y0 = 191 OR NOT (Yl OR Y0) THEN X0 = 


2050 IF YL = YH AND XL = XH THEN PRINT CHR$ 

0; GOTO 1160: REM => Pol 


(7);"Eingabefehler! Bitte wiederholen!": GOTO 1950 

1140 IF NOT Yl AND Y0 = 191 OR Yl = 191 AND NOT Y0 THEN 


2060 IF YL = YH THEN GOSUB 2420 

X0 = 0: GOTO 1090: REM Keine Verbindung zwischen 


2070 IF XL = XH THEN GOSUB 2400 

Polen 


2080 VTAB 13: PRINT "Die Darstellungsgrenzen wurden wie 

1150 & HPLOT X0,Y0 TO X1,Y1:X0 = X1:Y0 = Yl: REM 


folgt festgelegt: " 

Zeichnen / neuer Ausgangspunkt 


2090 & POS (0,16): PRINT "Kleinstes X: ":XL;: CALL CL% 

1160 IF X < XH THEN X = X + ST; GOTO 1070 


2100 & POS (40,16); PRINT "Größtes X: ";XH 

1170 1=1+ 1:P(0,I) = R:P(1,I) = S:P(2,I) = T; REM 


2110 & POS (0,18): PRINT "Kleinstes Y: ";YL;: CALL CL% 

Parameterliste 


2120 & POS (40,18): PRINT "Größtes Y: ";YHj: CALL CL% 

1180 IF RIGHT$ (P$,l) = "K" THEN X0 = 0; NEXT T: REM s, 


2130 PRINT : VTAB 22: PRINT "Ist das richtig? <J/N>";: 

1030 


CALL CL% 

1190 PRINT CHR$ (7): GET A$: RETURN 


2140 GOSUB 3400: IF A$ = "J" THEN PRINT : GOTO 2350 

1200 : 


2150 I = 0:X0 = I:Y0 = I:XI = I:Y1 = I:MX = I;MY = I:BX = 

1290 REM Fehlerbehandlung 


I:BY = I: REM clr Hilfsvar. 

1300 LN = PEEK (218) + 256 * PEEK (219):ER = PEEK 


2160 PRINT : VTAB 22: PRINT "Wollen Sie die 

(222): CALL 3087 


Darstellungsgrenzen komplett neu eingeben? <J/N> "j : 

1310 IF ER = 133 OR ER = 69 OR ER = 53 THEN XA = ST + X;X0 


GOSUB 3400: IF A$ = "J" THEN PRINT : VTAB I: PRINT 

= 0: GOTO 1060 


"Dann bitte Eingabe wiederholen!": GOTO 1950 

1320 REM Illegal Quantity, Overflow, Division by Zero 


2170 HOME : PRINT "Kleinere Manipulationen an den Achsen. 

1330 IF ER = 255 THEN 6460: REM Hauptmenü 


Wollen Sie Erläuterungen? <J/N>";: GOSUB 3400: PRINT 

1340 IF ER = 254 THEN PRINT : PRINT CHR$ (7)"Bitte Zahl 


2180 IF A$ = "J" THEN ID$ = "3": GOSUB 5510 

eingeben!": & POS (CX%,CY%}: RESUME : REM 


2190 HOME : PRINT : VTAB 3: PRINT " x-Aohse strecken? 

fehlerhafte Eingabe 


<J/N> "j: GOSUB 3400: IF A$ = "J" THEN GOSUB 1700 

1350 IF ER = 6 AND LN = 6060 THEN TEXT : PRINT CHR$ 


2200 PRINT : VTAB 5: PRINT " y-Achse strecken? <J/N> ";: 

(21): HOME : PRINT CHR$ (7)"Achtung! File PLOT.BX 


GOSUB 3400: IF A$ = "J" THEN GOSUB 1750 

fehlt!": PRINT "PLOT.3.E abgebrochen!" CHR$ (7): END 


2210 PRINT : VTAB 8: PRINT "Nun bitte das Verhältnis 

1360 IF ER > 0 AND ER < 16 THEN TEXT : PRINT CHR$ (21): 


positiver/negativer Achsenabschnitt:": PRINT : PRINT " 

HOME : PRINT CHR$ (7)"DOS-Fehler #";ER;" in Zeile 


Für X-Achse? <J/N> ";: GOSUB 3400: IF A$ = "J" THEN 

";LN: END 


GOSUB 1800 

1370 TEXT : PRINT CHR$ (21): VTAB 20: PRINT CHR$ 


2220 PRINT ; VTAB 12: PRINT " Für y-Achse? <J/N> ";: GOSUB 

(7)"Fehler Code # ";ER;" in Zeile "jLN: END 


3400: IF A$ = "J" THEN GOSUB 1850 

1400 : 


2230 IF (XI OR X0) AND NOT (XI AND X0) OR (YI OR Y0) AND 

1490 REM Grafik/Text umschalten 


NOT (Yl AND Y0) THEN PRINT : PRINT "Nie mit 0 

1500 POKE - 16368,0: REM lösche Keyboardstrobe 


strecken oder stauchen!" CHR$ (7): GOTO 2190 

1510 IF NOT PEEK (PG%) THEN POKE - 16303,0; POKE 


2240 VTAB 20: PRINT "Alles o,k,? <J/N> ";: GOSUB 3400: IF 

PG%.1: RETURN : REM Textseite 


A$ = "N" THEN PRINT : VTAB 2: PRINT "Bitte 

1520 POKE - 16304,0: POKE PG%,0: RETURN : REM Grafikseite 


wiederholen!";: CALL CL%: GOTO 2190 

1530 : 


2250 IF X0 AND XI THEN XL = XL / X0 * XI:XH = XH / X0 * XI 

1690 REM X-Achse strecken/stauchen 


2260 IF Y0 AND Yl THEN YL = YL / Y0 * Yl:YH = YH / Y0 * Yl 

1700 CY% = 2:CX% = 1: & POS (CX%,CY%): INPUT "Verhältnis 


2270 IF MX OR BX THEN X0 = XH - XL:X1 = MX + BX:XH = MX / 

alte Achse ";X0 


XI * X0:XL = - BX / XI + X0 

1710 CX% = 40: & POS (CX%,CY%): INPUT "zu neue Achse 


2280 IF MY OR BY THEN Y0 = YH - YL:Y1 = MY + BY:YH = MY / 

";X1 


Yl * Y0:YL = - BY / Yl * Y0 

1720 RETURN 


2290 HOME : GOTO 2080 

1730 : 


2330 : 

1740 REM Y-Achse strecken/stauchen 


2340 REM Umrechnung Bildschirm 

1750 CY% = 4:CX% = 1: & POS (CX%,CY%)\ INPUT "Verhältnis 


2350 MX = 559 / (XH - XL):BX = - MX * XL 

alte Achse ";Y0 


2360 MY = - 191 / (YH - YL):BY = - MY * YH 

1760 CX% = 40: & POS (CX%,CY%): INPUT "zu neue Achse 


2370 DEF FN XS(X) = INT (MX X + BX + .5): DEF FN , 

"; Yl 


YS(X) = INT (MY * X + BY + ,5) 

1770 RETURN 


2380 RETURN 

1780 : 


2390 REM X-Achse an y-Achse anpassen 

1790 REM Neue Aufteilung X-Achse 


2400 FA = 279 / 191:XL = FA * (YL - YH) / 2:XH = FA # (YH 

1800 CY% = 9:CX% = 1: & POS (CX%,CY%): INPUT "Anteil für 


- YL) / 2: RETURN 

positiven ";MX 


2410 REM y-Achse an x-Achse anpassen 

1810 CX% =40: & POS (CX%,CY%): INPUT "für negativen 


2420 FA = 279 / 191:YL = (XL - XH) / (2 # FA):YH = (XH - 

Achsenabschnitt ";BX 


XL) / [2 * FA): RETURN 

1820 RETURN 


2430 : 

1830 : 


2440 REM für Skalierung 

1840 REM Y-Achse neu teilen 


2450 X0 = INT ( FN LG(X)): IF X0 < FN LG(X) THEN X0 = X0 

1850 CY% = 11:CX% = 1: & POS (CX%,CY%): INPUT "Anteil für 


+ 1 

positiven ";MY 


2460 ST = X0 - I; IF FN LG(X) - X0 < FN LG(2) - 1 THEN 

1860 CX% = 40: & POS (CX%,CY%): INPUT "für negativen 


ST = ST - 1 

Achsenabschnitt ";BY 


2470 X0 = EXP ( LOG (10) + X0);ST = EXP ( LOG (10) ^ 

1870 RETURN 


ST): RETURN 

1880 : 


2480 : 

1890 REM Darstellungsgrenzen 


2580 REM Eingabe Parameter 

1900 IF XL OR XH OR YL OR YH THEN HOME : GOTO 2080: REM 


2590 REM Eingabe von T 

alte Werte zeigen 


2600 IF RIGHT$ (P$,I) = "K" THEN 2670 
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Sonderangebot für Peeker-Leser ■ Sonderangebot für Pee 

Festplattenkomplettlösung 

für jedermann 


Mit der Firma Frank & Britting GmbH, die 
auf Festplatten spezialisiert ist, konnten 
wir ein extrem günstiges Sonderangebot 
aushandeln, das eine Festplattenkomplett¬ 
lösung selbst für Apple-Besitzer mit klei¬ 
nerem Geldbeutel erschwinglich macht. 
Sie können unter zwei Varianten wählen: 


Luxus-Lösung: 20-Megabyte-Festplatte 
MDB20 (MDB = Mobile Datenbox) + Me- 
gaboard-Controller + Handbuch + 3 Kon¬ 
figurationsdisketten -f- Anschlußkabel + 
DB-Meister-Dateiverwaltungsprogramm 
+ Handbuch + 2 Programmdisketten zum 
Gesamtpreis von nur DM 3199,- inkl. 
MwSt. 

Standard-Lösung: 10-Megabyte-Fest- 
platte MDB10 -i- Megaboard-Controller -i- 
Handbuch -H 3 Konfigurationsdisketten -h 
Anschlußkabel -h DB-Meister-Dateiver- 
waltungsprogramm Handbuch + 2 Pro¬ 
grammdisketten zum Gesamtpreis von nur 
DM 2799,- inkl. MwSt. 

(jeweils 6 Monate Garantie.) 


Wozu eine Festplatte? 

Für eine Festplatte sprechen zwei Argu¬ 
mente, nämlich erstens der bedeutend 
größere Datenspeicher und zweitens die 
sehr hohe Zugriffszeit. 

• 80- und 160-Spur-Laufwerke haben 
zwar einen größeren Datenspeicher als 
die normalen 35-Spur-Laufwerke, doch ist 
die Zugriffszeit hier wie dort bescheiden. 

• RAM-Karten haben zwar eine hohe Zu¬ 
griffszeit, doch ist der Datenspeicher 
flüchtig: Strom aus - Daten weg! 

Für unsere Festplatten-Standard-Lösung 
(MDB10) gilt demgegenüber: 

- Die Nettospeicherkapazität beträgt hier 
ca. 9.650K = ca. 9.880.000 Zeichen = ca. 
15 Disketten mit 160 Spuren = ca. 69 
Disketten mit 35 Spuren. 


- Die Datenübertragungsrate beträgt auf 
unterster Ebene ca. 44K/s = ca. 45.000 
Zeichen/s. Zum Vergleich beläuft sich die 
Übertragungsrate bei normalen Disketten¬ 
laufwerken auf ca. 7,5K/s und bei RAM- 
Karten auf ca. 44K/S, d.h. RAM-Karten 
sind also keineswegs schneller, sondern 
meist sogar langsamer als die MDB-Fest- 
platte. 

Sie erhalten deshalb mit unserer Festplat¬ 
tenlösung einen großen externen Massen¬ 
speicher bei sehr hoher Datenübertra¬ 
gungsrate zu einem äußerst niedrigen 
Preis. 


Unkomplizierte Installation 

Die eigentliche Festplatte, also die „Mobi¬ 
le Datenbox“ MDB, ist ein kleines rechtek- 
kiges Kästchen mit der Länge einer Hand¬ 
fläche. Das eine Ende des Flachbandka¬ 
bels wird in die MDB, das andere Ende in 
den Megaboard-Controller gesteckt, der 
wie eine normale Erweiterungskarte aus¬ 
sieht und in jeden Slot von 1-7 paßt. Die 
MDB hat ein eigenes Netzteil. Deshalb 
brauchen Sie jetzt nur noch die MDB und 
danach den Apple einzuschalten, und fer¬ 
tig ist die Installation. Im Gegensatz zur 
Megacore-Festplatte, die wegen des Ap- 
ple-Netzteil-Wechsels von Apple-Händ¬ 
lern eingebaut werden sollte, ist die Instal¬ 
lation der MDB von jedermann problemlos 
zu bewerkstelligen. 


Problemlose Konfigurierung 

Danach booten Sie die mitgelieferte Sy¬ 
stemdiskette DOS-CONFIG von einem 
35-Spur-Laufwerk, tippen „I“ für Initiali¬ 
sieren, geben die Festplattenparameter 
ein (bei MDB10: 4 Köpfe, 306 Zylinder, 
Präkompensation ab dem 256. Zylinder 
und Schneller Zugriff Ja), und nach zwei 
weiteren Kontrollbestätigungen beginnt 
die Initialisierung. Dies dauert ca. 14 Minu¬ 
ten für die MDB10, und nunmehr kann die 
Festplatte mit den Betriebssystemen be¬ 
schrieben werden. 


Als Betriebssysteme können Sie im ein¬ 
zelnen verwenden: 

- DOS 3.3, 

- Diversi-DOS 2C und 4C, 

-Apple-Pascal 1.1 und 1.2, 

-ProDOS 1.0.1, 1.0.2, 1.1.1, 

- CP/M 2.2 56K (z.Zt nur diese CP/M- 
Version). 

Die Konfigurierung, d.h. die Speicherver¬ 
teilung auf die verschiedenen Betriebssy¬ 
steme, sollte mit Bedacht überlegt wer¬ 
den. NIcht-benötigte Betriebssysteme 
können Sie natürlich weglassen. Nehmen 
wir an, Sie brauchen zunächst nur DOS 
3.3. Wie wird nun konfiguriert? 

Sie booten nach der obigen Initialisierung 
die Festplatte mit PR#7 und wählen aus 
dem automatisch erscheinenden Bild¬ 
schirm-Menü „C“ für „Configuration“. 
Dann Tippen Sie „D“ für DOS 3.3, danach 
„V“ für Volumes, danach z.B. „10“ für 10 
Volumes = 2 x 10 x 140 = 2800K (1 
Volume entspricht einem 35-Spur-Dop- 
pellaufwerk). Nun können Sie nach zwei 
weiteren Kontrollbestätigungen die neue 
Konfiguration auf die Diskette schreiben, 
was nur wenige Sekunden dauert. So ein¬ 
fach ist das! Später können Sie dann, so¬ 
bald Sie mit der Festplatte besser vertraut 
sind, bei Bedarf die Konfigurationen für 
ProDOS, Apple-Pascal und CP/M nach¬ 
holen. 


Wie spricht man die MDB an? 

Sie werden sich nun vielleicht fragen, wie 
Sie die Festplatte ansprechen müssen und 
ob Sie neue DOS-Befehle lernen müssen. 
Mitnichten! Booten Sie einfach die Fest¬ 
platte mit PR#7 - übrigens heißt es immer 
PR#7, auch wenn Sie die Megaboard- 
Karte z.B. in Slot 4 gesteckt haben - und 
danach z.B. 

INIT HELLO, S7, V3, Dl 

Damit wird das Volumein „Drive 1, Slot 7“ 

formatiert. Nun können Sie mit 

CATALOG 

RUN usw. 

auf dieses Voiume wie üblich zugreifen. 
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Wie schnell ist die MDB? 

Die Datenübertragungsrate beträgt bei der 
MDB physikalisch 5 MBits/s. Dies ist ein 
theoretischer und niemals erreichbarer 
Wert. Auf Spur-Sektor- bzw. Blockebene 
beträgt die praktisch erzielbare Übertra¬ 
gungsrate ca. 44K/S bis 47,5K/s, je nach 
Betriebssystem. Einige anschauliche Bei¬ 
spiele; Auf Sektorebene läßt sich ein 
140K-DOS-Volume mit dem Programm 
MDB.KOPY in 6,2s auf ein anderes 140K- 
Volume überspielen. Auf Dateiebene läßt 
sich eine 1-Megabyte-ProDOS-Datei mit 
dem Programm PROFID in 122s duplizie¬ 
ren. Dies sind umgerechnet 17.000 Bytes/ 
s für Lesen bzw. Schreiben. 

Was läuft mit der MDB? 

Sie können normale Disk-Il-Laufwerke 
und beispielsweise Erphi-160-Spur-Lauf- 
werke im Mischbetrieb einsetzen. Die zu¬ 
sätzliche Verwendung von RAM-Karten ist 
bei der MDB überflüssig, da mit diesen in 
der Regel keine höheren Übertragungsra¬ 
ten erzielt werden können. Die Accelerator 
Ile funktioniert einwandfrei In Verbindung 
mit dem Megaboard-Control Isr {Slot-7- 
Schalter auf 1MHz einstellen). Die Spee- 
demon funktioniert jedoch wegen des 
Cache-Speichers leider nicht. 

DB-Meister 

Speziell für die zukünftigen MDB-Besitzer 
wurde das Adreß- und Schemabriefpro¬ 
gramm DB-Meister, das in der normalen 
Diskettenversion DM 290,- kostet, zum 
Festplattenbetrieb umgeschrieben. Tech¬ 
nische Daten: 

- Datensatzlänge bis zu 230 Zeichen, auf¬ 
teilbar in bis zu 25 Felder; maximal 1000 
Datensätze pro Volume 

- 2 variable Indexfelder und 1 zusätzliches, 
konstantes Suchfeld. 

- Maskengenerator-Modul für die freie 
Definition von Bildschirmeingabe- und 
Ausdruck-Masken. 

- Dateipfiege-Modul zum Neueingeben, 
Ändern, Löschen, Ansehen, Bildschirm- 
Ausdruck usw. 


- Sortier- und Filter-Module zum Sortieren 
und Untersortieren nach Indexfeldern und 
zum selektiven oder kumulierenden Filtern 
nach beliebigen Feldern. 

- Druck-Modul zum Ausdrucken von 
Selbstklebe-Etiketten, tabellarischen Li¬ 
sten und Schemabriefen mit automati¬ 
schem Einschub von Adressen und Anre¬ 
den sowie weiteren Feideinschüben im 
Briefkörper; Einzelblatt und Endlospapier 
verwendbar; Druckertreiber für Typenrad¬ 
drucker mit anderer Typenradbelegung 
können eingebunden werden. 

- Brief-Modul zum Schreiben der Sche¬ 
mabriefe; bei Bedarf separat verwendbar. 

- Schnelles Backup-Programm (nur 10 
Minuten für 2,5 Megabytes bzw. 18 DB- 
Meister-Dateien). 

- Diverse Spezial-Module zur Indexfeld- 
Umdefinierung, zur Sortierung nach Kun¬ 
dennummern usw. 

Alle Programm-Module laufen auf einem 
Apple Ile oder ll-i- mit MDB (Ausnahme: 
Das Brief-Modul funktioniert nur auf dem 
Ile mit 80-Zeichenkarte, doch können be¬ 
liebige Fremdtexte eingelesen werden.). 


Wie wird besteiit? 

Sie senden Ihre Bestellung an den Hüthig- 
Software-Service. Sie erhalten dann von 
der Firma Frank & Britting eine Voraus¬ 
rechnung, nach deren Überweisung Ihnen 
von dort die MDB 10 bzw. MDB20, der 
Megaboard-Controller, das Handbuch und 
die Konfigurierungsdisketten mit 6 Mona¬ 
ten Garantie geliefert werden. Gleichzeitig 
erhalten Sie vom Hüthig-Software-Service 
das DB-Meister-Programm (2 Disketten 
und Handbuch) in der für die MDB bereits 


Das DB-Meister-Programm eignet sich für 
normale Adreßverwaltung sowie für 
Dateien aller Art mit vielen, aber kleinen 
Datensätzen (max. 230 Zeichen). Das Pro¬ 
gramm ist nicht für das Schreiben von 
Rechnungen o.ä. gedacht. 

Die Verarbeitungsgeschwindigkeit des 
„DB-Meisters“ ist bei der MDB extrem 
schneil. Einige Sekundenangaben, bezo¬ 
gen auf eine Datei mit 500 Datensätzen zu 
je 220 Zeichen: 

- Modul-Wechsel: 1s 

- Suche nach Indexfelder: 0,3s 
-Suche nach Nicht-Indexfeldern: 17s 

- Filtern und Untersortieren: 25s 

- Bildschirm-„Drucken“: 38s 

Noch ein etwas anschaulicheres Beispiel: 
Wenn Suchfelder neu vergeben werden 
sollen, muß die alte Indexdatei (ca. 50 
Sektoren) und die ganze Hauptdatei (ca. 
450 Sektoren) eingelesen werden und 
dann nach dem automatischen Heraussu¬ 
chen der neuen Suchwörter die neue In¬ 
dexdatei abgespeichert werden. Dieser 
normalerweise zeitraubende Prozeß dau¬ 
ertauf der MDB nur 14s. 


angepaßten Version. Nach einer geringfü¬ 
gigen Änderung im Hello-Programm kön¬ 
nen Sie diese Neuversion des DB-Mei¬ 
sters übrigens auch zusätzlich auf norma¬ 
len 35-Spur-Laufwerken einsetzen. 

Zur Bestellung können Sie eine der im 
Peeker eingehefteten Bestellkarten ver¬ 
wenden. Stichwort: 

1 x MDBIO-Sonderangebot für DM 2799,- 
oder 

1 X MDB20-Sonderangebot für DM 3199,- 


Hüthia 

PUBLIKATION 


SOFTWARE SERVICE 

Im Weiher 10 • 6900 Heidelberg 1 
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2610 CY% = 3:CX% = 0: & POS {CX%,CY%): INPUT "Bitte T 
eingeben: ";T 

2620 VTAB 4: PRINT SPC( 14);"T = ";T: CALL CL% 

2630 PRINT ; PRINT TAB( 20)j"Richtig? <J/N> 

2640 GOSUB 3400: IF A$ = "N" THEN 2610 
2650 RETURN 

2660 REM T in Schleife 

2670 CY% = 2:CX% = 0: & POS (CX%.CY%): INPUT "Bitte 
Startwert: ";T0:CX%=40: & POS (CX%.CY%)\ INPUT 
"und Endwert für T eingeben: ";T1 
2680 CX% = 0:CY% = 4: & POS {CX%,CY%): INPUT "Nun bitte 
die Schrittweite eingeben: ";TS 
2690 IF TS = 0 THEN VTAB 7: PRINT CHR$ (7);"Nie 
Schrittweite 0!": GOTO 2680 
2700 IF TS < 0 THEN 2730 
2710 IF TI < T0 THEN T = TI:TI = T0:T0 = T 
2720 GOTO 2740 

2730 IF T0 < TI THEN T = T0:T0 = TI:TI = T 
2740 LI = 1:L2 = 7: GOSUB 3450: VTAB 2 
2750 PRINT "T läuft von; ";T0 

2760 PRINT " bis; ";TI 

2770 PRINT " mit Schrittweite; ";TS 
2780 PRINT : PRINT TAB( 10);"Ist das richtig? <J/N> 
GOSUB 3400: IF A$ = "N" THEN LI = 2:L2 = 6: GOSUB 
3450: GOTO 2670 
2790 RETURN 
2800 : 

2810 REM Eingabe von S 

2820 CX% = 0:CY% = 8: & POS (CX%,CY%): INPUT "Bitte S 
eingeben: ";S 

2830 VTAB 9: PRINT SPC( 15);"S = ";S: CALL CL% 

2840 VTAB 11: PRINT TAB( 20);"Richtig? <J/N> ";: GOSUB 
3400: IF A$ = "N" THEN 2820 
2850 RETURN 
2860 : 

2870 REM Eingabe von R 

2880 CX% = 0:CY% = 14: & POS (CX%,CY%): INPUT "Bitte R 


eingeben: ";R 

2890 VTAB 15: PRINT SPC( 15);"R = ";R: CALL CL% 

2900 VTAB 17: PRINT TAB( 20);"Richtig? <J/N> : GOSUB 

3400: IF A$ = "N" THEN 2880 
2910 RETURN 
2920 ; 

2940 REM Für Parameterliste 

2950 FOR J = 1 TO I: & POS ( FN P1(J),CY% + FN P2(J)): 
PRINT P(K,I - J + 1): NEXT ; RETURN 


2960 : 

2990 REM für Parametertabelle 
3000 N$ = "nicht verwendet" 

3010 ON VAL (P$) GOTO 3030,3040,3060,3050,3070,3080,3090 


3020 

S$ = 

N$:T$ 

= N$:R$ = 

= N$: RETURN 

3030 

R$ = 

STR$ 

(R) 

S$ = 

N$;T$ = N$: RETURN 

3040 

S$ = 

STR$ 

(S) 

R$ == 

N$;T$ = N$: RETURN 

3050 

T$ = 

STR$ 

(T) 

R$ = 

N$:S$ = N$: RETURN 

3060 

R$ = 

STR$ 

(R) 

S$ = 

STR$ (S):T$ = N$: RETURN 

3070 

R$ = 

STR$ 

(R) 

T$ = 

STR$ (T):S$ = N$: RETURN 

3080 

S$ = 

STR$ 

(S) 

T$ = 

STR$ (T):R$ = N$: RETURN 

3090 

R$ = 

STR$ 

(R) 

S$ = 

STR$ (S):T$= STR$ (T): RETURN 


3100 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3290 

3300 

3310 


REM alle Parameter eingeben 
IF P$ = "0" THEN 3180 

HOME : PRINT TAB( 10);"Parametereingabe" 

ON VAL (P$) GOSUB 3190,3200,3220,3210,3230,3240,3250 
HOME : RETURN 


GOSUB 2880 
GOSUB 2820 
GOSUB 2600 
GOSUB 2820 
GOSUB 2600 
GOSUB 2600 
GOSUB 2600 


RETURN 
RETURN 
RETURN 
GOSUB 2880 
GOSUB 2880 
GOSUB 2820 
GOSUB 2820 


RETURN 

RETURN 

RETURN 

GOSUB 2880: RETURN 


REM Kurzzusammenfassung 

HOME : PRINT "Die Funktion lautet:": PRINT F$ 

VTAB 4: PRINT "Darstellungsgrenzen:": & POS (9,4): 
PRINT "Kleinstes X: ";XL;: & POS (40,4): PRINT 


"Größtes X: ";XH 

3320 & POS (9,5): PRINT "Kleinstes Y: ":YL;: & POS 
(40,5): PRINT "Größtes Y: ";YH 
3330 VTAB 7: PRINT "Parameter: ": GOSUB 3000 
3340 4 POS (0,7): PRINT "R:"R$: IF I > 0 AND R$ < > N$ 

THEN CY% = 7:K = 0: GOSUB 2950 
3350 & POS (0,11): PRINT "S:"S$: IF I > 0 AND S$ < > N$ 

THEN CY% = 11:K = 1: GOSUB 2950 
3360 & POS (0,15): PRINT "T:"T$: IF I > 0 AND T$ < > N$ 

THEN CY% = 15:K = 2: GOSUB 2950 
3370 VTAB 21; PRINT "Abszisse X = ": RETURN 
3380 : 

3390 REM Teste ob ja oder nein 

3400 GET A$: IF A$ < > CHR$ (3) AND A$ < > "J" AND A$ < 

> "j" AND A$ < > "N" AND A$ < > "n" THEN 3400 


— 

3410 IF A$ > "Z" THEN A$ = CHR$ ( ASC (A$) - 32) 

3420 IF A$ < > CHR$ (3) THEN RETURN 

3430 POP : GOTO 6460 

3440 REM lösche zwischen LI und L2 Bildschirm 

3450 FOR L = LI - 1 TO L2 - 1: & POS (0,L): CALL CL%: 

NEXT ; RETURN 
3460 : 

3480 REM Zeichne Achsen 
3490 REM und skaliere 

3500 IF XL = YH AND YL = XH THEN RETURN 

3510 & HGR : & HPLOT 0,0 TO 559,0 TO 559,191 TO 0.191 TO 

0,0: REM generiere Rahmen 

3520 & HPLOT FN XS(0).0 TO FN XS(0).191: & HPLOT 0, FN 
YS(0) TO 559, FN YS{0):K =0: IF YL = 0 THEN K = - 2 

3530 IF YH = 0 THEN K = 2 

3540 X = XH: IF ABS (XL) > XH THEN X = ABS (XL) 

3550 GOSUB 2450: FOR X = ST TO X0 STEP ST 

3560 IF X < XH THEN & HPLOT FN XS(X), FN YS(0) + K - 2 
TO FN XS(X), FN YS(0) + K + 2 
3570 IF - X > XL THEN & HPLOT FN XS( -X), FN YS(0) + 

K - 2 TO FN XS( - X), FN YS(0) + K + 2 

3580 NEXT ;K = 0; IF XL = 0 THEN K = 2 
3590 IF XH = 0 THEN K = - 2 

3600 X = YH: IF ABS (YL) > X THEN X = ABS (YL): GOSUB 
2450 

3610 GOSUB 2450: FOR X = ST TO X0 STEP ST 

3620 IF X < YH THEN & HPLOT FN XS(0) + K - 2, FN YS(X) 

TO FN XS(0) + K + 2, FN YS(X) 

3630 IF - X > YL THEN & HPLOT FN XS(0) + K - 2, FN YS( 

- X) TO FN XS(0) + K + 2, FN YS( - X) 

3640 NEXT : RETURN 
3650 : 

3690 REM Funktionseingabe 

3700 1=0: HOME : PRINT "Funktionseingabe: Wünschen Sie 
Erläuterungen? <J/N>";: GOSUB 3400 
3710 IF A$ = "J" THEN ID$ = "4": GOSUB 5510 
3720 HOME : PRINT "Bitte geben Sie die darzustellende 
Funktion ein!": ONERR GOTO 3900 
3730 LI = 10:L2 = 15: GOSUB 3450; & POS (0,9): PRINT F$: 

VTAB 10 

3740 & FN ,F$:F$ = "y=" + F$:P$ = STR$ ( PEEK (255)) 

3750 R = 1.4:S = 2.1:T = 3-31: REM Zufallswerte Parameter 

3760 I = 0:Y = FN Y{1.1084): REM Syntax-Test 

3770 R = 0;T = 0:S = 0: IF P$ < "4" THEN 3810 

3780 VTAB 13: PRINT "Es wurde der Parameter T verwendet." 

3790 PRINT "Soll T ln einer Schleife mit fester 
Schrittweite durchlaufen werden? <J/N>"; 

3800 GOSUB 3400: IF A$ = "J" THEN P$ = P$ + "K" 

3810 & POS (0,9); CALL CL%: PRINT F$;: CALL CL%: & POS 
(0,21): PRINT "Ist das richtig? <J/N> ";: CALL CL% 

3820 GOSUB 3400: IF A$ = "N" THEN PRINT "Bitte 
korrigieren!": GOTO 3730 

3830 ONERR GOTO 1300: REM wieder zurück auf normale 
ONERR-Routine 
3840 RETURN 
3880 : 

3890 REM Spezial ONERR-Routine 

3900 ER = PEEK (222): CALL 3087: IF ER < > 16 THEN 3770 

3910 VTAB 17; PRINT CHR$ (7)"Fehler bei der 

Funktionseingabel Bitte auf korrekte Syntax achten! 
Nochmal!" 

3920 GOTO 3730 
3930 : 

3940 REM SUPERDUMP STARTEN 
3950 PRINT : POKE 104,8; PRINT CHR$ (4)"RUN 
SUPERDUMP.EPSON" 

3960 : 

4980 REM 

4990 REM Disk-Menü 

5000 POKE PG%,1: TEXT : HOME : PRINT "Disk-Menü; 

(Betätigen Sie 0 ... 6, Leertaste zeigt Grafik!)"; 

ONERR GOTO 5700 

5010 VTAB 5; PRINT " 1 — Inhaltsverzeichnis der Diskette" 

5020 PRINT : PRINT " 2 - Grafik von Disk laden" 

5030 PRINT : PRINT " 3 - Grafik auf Disk speichern" 

5040 PRINT : PRINT " 4 - aktives Laufwerk auswählen" 

5050 PRINT : PRINT " 5 - Erläuterungen abrufen" 

5060 PRINT : PRINT " 6 - Superdump" 

5070 VTAB 20: PRINT " 0 - Zurück ins Hauptmenü" 

5080 GET A$: IF A$ = " " THEN GOSUB 1510: GOTO 5080 

5090 IF A$ < "0" OR A$ > "6" THEN 5080 • 

5100 ON VAL (A$) GOTO 5140,5170,5220,5380,5270,3950 

5110 ONERR GOTO 1300 

5120 GOTO 6460: REM zurück ins Hauptmenü 
5130 REM CATALOG 

5140 PRINT : HOME ; PRINT D$"CATALOG,D"DR$",S"SL$ 

5150 PRINT " Bitte beliebige Taste betätigen GET A$: 

GOTO 5000 

5160 REM Neues Bild laden 
5170 TEXT : HOME : POKE PG%,1 
5180 INPUT "File-Sammelname ";A$ 
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6760 : 

6770 REM 4 Bildschirm 

6780 1=0: POKE - 16302,0: GOSUB 3500: GOTO 6460 
6790 REM Zeichne Achsen und Skala/Menü 
6800 : 

6810 REM 5 Datenliste zeigen 

6820 POKE PG%,0: GOSUB 1510: GOSUB 3300: GET A$: GOTO 6460 
6830 REM Zusammenfassung / Menü 
6840 : 

6850 REM 6 Zeichnen 

6860 POKE PG%.1: GOSUB 1500; GOSUB 1020: GOTO 6460 
6870 REM Grafikseite/Menü 
6880 : 

6960 REM Pointer in ($67) falsch gesetzt, das Programm 
liegt in der 

6970 REM 1. Grafikseite. EXEC-File PLOT.3.PRO korrigiert 
das, lädt 

6980 REM und startet PLOT,3.E von Neuem 
6990 ; 

7000 VTAB 8: HTAB 5: PRINT "Programm PLOT.3.E wird 
geladen": PRINT : HTAB 14: PRINT "Bitte warten" 

7010 PRINT CHR$ (4)"EXEC PLOT.3.PRO" 

7020 : 

7100 REM *******¥*********##*** 

7120 REM* PLOT 3.E * 

7140 REM * für APPLE //e, //c * 

7160 REM * Hans-Martin Eng * 

7180 REM * 24* Februar 1986 * 

7200 REM ********************** 


PLOT.3.PRO (Exec-File) 

POKE 50. 128 
POKE 103, 1 
POKE 104, 64 
POKE 16384, 0 
LOAD PLOT.3.E 
CALL 54514 
POKE 50.255 
RUN 


PLOT.PATCH 

Ändern Sie die betreffenden Zeiien im Hauptpro¬ 
gramm wie foigt ab, wenn Ihr Druckerinterface dop- 
peit hochaufiösende Grafik ausdrucken kann. 

Die Steuerzeichen sind natüriich druckerspezifisch. 
Besitzen Sie einen anderen Drucker, hiift vieileicht 
ein Bück ins Handbuch. 

3940 REM Ausdrucken 

3950 PRINT CHR$ (21): PRINT D$"PR+1": REM 80-Zeichen aus, 
Drucker ein 

3960 PRINT CHR$ (9) CHR$ (16);; REM stelle 
Interface-Command—Charakter um 
3970 REM FX-80 spezifische Codes 

3980 PRINT CHR$ (27)"M" CHR$ (27)"1" CHR$ (8);: REM 
Elite-Zeichensatz, Linker Rand Spalte 8 
3990 PRINT CHR$ (27)"Q" CHR$ (90) CHR$ (27)"N" CHR$ (6);: 

REM Rechter Rand Sp 90, unterer Rand 
4000 PRINT CHR$ (27)"D" CHR$ (8) CHR$ (24) CHR$ (40) CHR$ 
(56) CHR$ (72) CHR$ (0): REM Definiere 
Tabulatorstops 

4010 PRINT TAB{ 43) CHR$ (27)"-l PLOT,3.E " CHR$ 

(27)"-0": REM Kopfzeile unterstrichen 
4020 PRINT CHR$ (13) CHR$ (10) CHR$ (10)"Die Funktion 
lautet:" 

4030 PRINT "F{X) = " MID$ (F$,3): PRINT 

4040 PRINT CHR$ (10) CHR$ (10)"Darstellungsgrenzen:" CHR$ 
(9)"x läuft von:" CHR$ (9): 

4050 PRINT XL CHR$ (9)"bis: "XH 

4060 PRINT CHR$ (9) CHR$ (9)"y läuft von:" CHR$ (9)YL 
CHR$ (9)"bis: "YH 

4070 IF R$ = N$ AND T$ = N$ AND S$ = N$ THEN PRINT : 

PRINT "Es werden keine Scharparameter verwendet*": 
GOTO 4150 

4080 PRINT CHR$ (13) CHR$ (10)"Parameterliste:"; PRINT 
"Die Funktion wurde mit folgenden Parameterwerten 
gezeichnet: 


4090 PRINT : IF R$ = N$ THEN 4110 

4100 PRINT " R: "::K = 0: GOSUB 4300: PRINT 

4110 IF S$ = N$ THEN 4130 

4120 PRINT : PRINT " S: ";:K = 1; GOSUB 4300: PRINT 
4130 IF T$ = N$ THEN 4150 

4140 PRINT : PRINT " T: ";:K = 2: GOSUB 4300: PRINT 
4150 PRINT CHR$ (13) CHR$ (10) CHR$ (10)"Hier die 
Grafik:" 

4160 PRINT CHR$ (27)"1" CHR$ (0) 

4170 PRINT CHR$ (16)"GZ": REM kritischer Punkt, Wenn Ihr 
Grafikinterface keinen 

4180 REM Dumpbefehl für Double-Hires-Grafik kennt, müssen 
Sie auf 

4190 REM SUPERDUMP ausweichen 

4200 PRINT : PRINT : PRINT TAB( 80)"HME" 

4210 PRINT D$"PR+0": PRINT D$"PR#3" 

4220 GOTO 5000 
4230 REM 
4240 : 

4290 REM Parametertabelle 

4300 FOR J = 1 TO I; PRINT CHR$ (9);P(K,J): 

4310 IF J / 5 = INT (J / 5) THEN PRINT 
4320 NEXT J: PRINT 
4340 RETURN 
4350 : 

5060 PRINT ; PRINT " 6 - Ausdrucken" 

6080 PRINT D$"PR#3": & HGR : POKE PG%,0: GOSUB 1510; HOME 
: PRINT TAB( 29)"PL0T.3,E / Direktdruck" 


SUPERDUMP.PATCH 

Damit Superdump die PLOT.S.E-Grafikfiles einiesen 
und ausdrucken kann, müssen einige Befehle ein¬ 
gefügt werden. Darum mußte an anderer Stelle 
Speicherplatz eingespart werden. Ändern Sie darum 
bitte im Appiesoft-BASIC-Programm SUPERDUMP 
■EPSON oder SUPERDUMP.IMAGEWRiTER die foi- 
genden Zeiien ab. 


1260 TEXT :D$ = CHR$ (4): PRINT CHR$ (12): HOME 
1320 PRINT : PRINT D$"BRUN SUPERDUMP" 

1325 IF PEEK (64435) = 6 AND PEEK (64448) = 0 THEN POKE 
34499.32 

1530 PI = PEEK (43634): REM ADDRESSE PARAMETERBLOCK 
1540 P2 = PEEK (43635);PB = PI + 256 * P2 
1740 INPUT "Welche Graphik laden ? ":F$ 

1750 IF F$ = "" THEN F$ = "BILD" 

1755 PRINT "Plot.3-E - Grafikfile? <j/n>";: GOSUB 2150 
1760 HGR : HOME : VTAB 22 

1770 IF A$ = "J" THEN PRINT D$"BL0AD"F$;".A,A$4000";F$ = 
F$ + ".M" 

1780 PRINT D$"BL0AD";F$ 

1790 IF D = 1 THEN POKE CO,2: & : REM HGR 2 -> AUXRAM 
1800 POKE - 16300,0: POKE - 16301,0: POKE - 16297,0: 

POKE - 16304,0 

1920 POKE - 16299,0: POKE - 16302,0 

1970 POKE - 16300.0: POKE - 16301,0 

2040 POKE - 16297,0: POKE - 16304,0 

2060 POKE CO,0: POKE HI,D 
2080 & : REM DRUCKE 

2130 IF A$ = "N" THEN HOME : PRINT D$"EXEC PLOT.3.PRO": 
END 


Telefonische Bestellungen? 

Da unsere Peeker-Disketten in offener Rechnung und nicht 
in dem für Sie teuren Nachnahme-Verfahren ausgeliefert 
werden, haben Sie bitte Verständnis dafür, daß wir nur 

noch schriftliche Bestellungen annehmen. 

Sie können dazu beispielsweise die in jedem Peeker ein¬ 
gehefteten Bestellkarten verwenden. 

Hüthig Software Service 
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quApik 



PLOT.BX (Tell-Quellcode) 

517 * Linie beliebiger Steigung: 

518 * Zuerst Differenz von yl und y2. 


519 

* 



520 

LINE 

SEC 


521 


LDA 

Y2 

522 


SBC 

Yl 

523 


STA 

DY 

524 


BCS 

Y1<Y2 

525 

* 



526 

* Absolutbetrag der Differenz, 

527 

* 



528 

Y1>Y2 

SEC 


529 


LDA 

+0 

530 


SBC 

DY 

531 


STA 

DY 

532 

* negative Y-Richtung, 

533 


LDA 

+$FF 

534 


STA 

YADD 

535 


BMI 

WEITER ; immer 

536 

* 



537 

¥ Positive Y-Richtung: 

538 

* 



540 

Y1<Y2 

LDA 

+1 

541 


STA 

YADD 

542 

* 



543 

* Weiter mit 

den X-Koordinaten: 

544 

* Erst 

Differenz bestimmen. 

545 

* 



546 

WEITER 

SEC 


547 


LDA 

X2L 

548 


SBC 

XIL 

549 


STA 

DXL 

550 


LDA 

X2H 

551 


SBC 

XIH 

552 


STA 

DXH 

553 


BCS 

X1<X2 

554 

* 



555 

* Betragsbildung, 

556 

* 



557 

X1>X2 

SEC 


558 


LDA 

*0 

559 


SBC 

DXL 

560 


STA 

DXL 

561 


LDA 

#0 

562 


SBC 

DXH 

563 


STA 

DXH 

564 

* negative X-Rlchtung. 

565 


LDA 

#$FF 

566 


STA 

XADDL 

567 


STA 

XADDH 

568 


BMI 

PARA? ;immer 

569 

* 



570 

* Positive X-Richtung: 

571 

X1<X2 

LDA 

#0 

572 


STA 

XADDH 

573 


LDA 

#1 

574 


STA 

XADDL 

575 

* 




576 * Jetzt testen wir, ob die Gerade 

577 * parallel zur X- oder Y-Achse, 

578 * 


579 PARA? 

LDA 

DY 

580 

BEQ 

XLINE 

581 

LDA 

DXL 

582 

BNE 

TEST2 

583 

LDA 

DXH 

584 

BEQ 

YLINE 


585 **5(t****fs************************ 

586 * Kleine Modifikation des Trep-* 

587 * penalgorithmus. Bringt * 

588 * besseres Bild. * 

589 ******5ie*****#^i|6#^fe#^^*i(f#*#*^K******^^ 


590 

TEST2 

SEC 


591 


LDA 

DXH 

592 


BNE 

TEST3 

593 


LDA 

DXL 

594 


CMP 

DY 

595 

TEST3 

ROR 


596 

597 

* 

STA 

FLAG 

599 

600 

* Initialisiere Saldoreg 

* 

601 

NOTPARA 

SEC 


602 


LDA 

#0 

603 


STA 

DL 

604 


STA 

DH 


605 * und Schrittzähler: 

606 ^ (STCNT = 0 - dY - dX) 

607 * 

608 SBC DY 

609 * 

610 SEC 

611 SBC DXL 

612 TAX ;Low 

613 LDA +$FF 

614 SBC DXH 

615 STA STCNT ;High 

616 ¥ 

617 * Hier weiter für alle Geraden 

618 * Ist D < 0, dann in X-Richtung 

619 * Ist D > 0, dann Y-Richtung. 

620 # Ist D = 0, dann in Richtung der 

621 * größeren Koordinatendifferenz. 

622 # 

623 NOTREADY LDA DH 

624 BMI XSTEP 

625 BNE YSTEP 

626 LDA DL 

627 BNE YSTEP 

628 BIT FLAG 

629 BPL XSTEP 

630 * 

631 * Schritt in Y-Richtung: 






633 

* 



634 

YSTEP 

CLC 


635 

* neue Y- 

-Koordinate 

636 


LDA 

Yl 

637 


ADC 

YADD 

638 


STA 

Yl 

639 

# als Index 


640 


TAY 


641 

* 



642 


LDA 

HGRADRL.Y 

643 


STA 

INDl 

644 


LDA 

HGRADRH,Y 

645 


STA 

INDl+1 

646 

* Aktualisiere Saldoregister 

647 

* D.neu = 

= D.alt - dX 

648 




649 


SEC 


650 


LDA 

DL 

651 


SBC 

DXL 

652 


STA 

DL 

653 


LDA 

DH 

654 


SBC 

DXH 

655 


STA 

DH 

656 

* 



657 


INX 


658 


BNE 

STINCY 

659 


INC 

STCNT 

660 


BEQ 

COMMON 

661 

* 



662 

STINCY 

BIT 

FLAG 

663 


BMI 

XSTEP 

664 

* 



665 

^ Ab hier XSTEP und YSTEP 

666 

* wieder 

gemeinsam. 

667 

* 



668 

COMMON 

LDA 

QUOTIENT 

669 

* AUXRAM 

oder 

MAINRAM ? 

670 


LSR 


671 


BCC 

LPAGE2 

672 

* 



673 

LPAGEl 

LDY 

$C054 

674 


BCS 

LPAGER 

675 

* 



676 

LPAGE2 

LDY 

$C055 

677 

* 



678 

LPAGER 

TAY 


679 


LDA 

(INDl),Y 

680 


ORA 

BITBYTE 

681 


STA 

(INDl),Y 

682 

■5^ 



683 

* Schrittzähler testen. 

684 




685 


BIT 

STCNT 

686 


BMI 

NOTREADY 

687 

* 



688 

* Schrittzähler >= 0, die Gerade 

689 

* ist fertig , 


690 

* 



691 

READY 

STA 

$C054 ;MAINRAM 


692 * Alte Endkoordinaten ggf. als 

693 * neue Anfangskoordinaten. 

694 LDA X2H 


695 

STA 

XIH 

696 

LDA 

X2L 

697 

STA 

XIL 


698 * War mir ein Vergnügen. 

699 RTS 

700 * 

701 I - 

702 * 

703 * Schritt in X-Richtung : 

704 * ----—-- 

705 * 

706 * Statt Division Manipulation von 

707 * Divisionsrest und Quotient aus 

708 * vorangegangener Berechnung. 

709 * 


710 XSTEP 

CLC 


711 

LDA 

RESTL 

712 

ADC 

XADDL 

713 * Rest 

< 0, 1 

Quotient erniedrigen. 

714 

BMI 

XSl 

715 

CMP 

rr 

716 

BNE 

XS2 

717 * Rest 

> 6, 1 

Quotient erhöhen 

718 

INC 

QUOTIENT 

719 

LDA 

#0 

720 

STA 

RESTL 

721 

BEQ 

XPAGE 

722 * 



723 XSl 

DEC 

QUOTIENT 

724 

LDA 

#6 

725 

STA 

RESTL 

726 

BNE 

XPAGE 

727 * 



728 XS2 

STA 

RESTL 

729 * 



730 * Jetzt 

Bit-Position auswählen. 

731 * 



732 XPAGE 

LDY 

RESTL 

733 

LDA 

BITTABLE,Y 

734 

STA 

BITBYTE 

735 * Schrittzähler erhöhen 

736 

INX 


737 

BNE 

STINCX 

738 

INC 

STCNT ;letzter 

739 

BEQ 

COMMON ;Punkt 

740 * Saldoregister: 

741 * (D.neu = D. 

alt + dY) 

742 STINCX 

LDA 

DL 

743 

CLC 


744 

ADC 

DY 

745 

STA 

DL 

746 * Nun noch Punkt setzen. 

747 

BCC 

COMMNl 

748 

INC 

DH 

749 * Doppelschritt? 

750 COMMNl 

BIT 

FLAG 

751 

BMI 

COMMON 

752 

JMP 

YSTEP 


Ältere Peeker-Hefte 

können für DM 6,50 pro Heft 
zuzüglich Versandspesen ange¬ 
fordert werden. Vergriffene 
Hefte sind als Photokopien 
für DM 10,- pro Heft erhält¬ 
lich. Mindestbestellmenge 
2 Hefte. 

Dr. A. Hüthig Verlag - Heidelberg 
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EDIT 


Übungen zum Disk-Editor 


Hinweis: Die Teile 2 und 3 mit dem kom¬ 
mentierten Quelltext des Editors erschei¬ 
nen in den Heften 7/86 und 8/86. Nach 
dem Teil 1 in Heft 5/86 soll zunächst die 
praktische Anwendung des Editors an¬ 
hand einfacher Übungsbeispiele demon¬ 
striert werden. 

1. Zunächst erstellen wir ein Duplikat der 
ProDOS-Systemdiskette, die in der engli¬ 
schen Version USERS.DISK bzw. in der 
deutschen Version BENUTZER. DISK 
heißt. 

2. Dann kopieren wir mit CONVERT, das 
sich auf der BENUTZER.DISK befindet 
(oder ersatzweise mit DOSTOPRO) von 
der Peeker-Sammeldisk #18 das Pro¬ 
gramm EDIT auf das Duplikat der BENUT¬ 
ZER.DISK. 

3. Schließlich setzen wir noch, nachdem 
wir CONVERT verlassen haben, das Präfix 
mit 

PREFIX/BENUTZER.DISK 
auf unsere Übungsdiskette. Es ist wichtig, 
daß Sie die ersten Schritte mit EDIT auf 
einer Duplikatdiskette unternehmen, weil 
Sie dann keine Angst zu haben brauchen, 
daß Sie wertvolle Daten zerstören. 

4. Jetzt starten wir den Editor mit 
BRUN EDIT 

Er meldet sich mit einer Biidschirmüber- 
sicht, die im Falle einer 80-Zeichenkarte 
wie Abb. 1 aussieht, andernfalls wie Abb. 
2. Der Cursor ist auf der untersten Bild¬ 
schirmzeile sichtbar, und alle nachfolgen¬ 
den Befehle schließen wir mit Return ab. 

5. Wir geben als erstes 
PR/BENUTZER.DISK 

ein, womit das Präfix auf BENUTZER.DISK 
eingestellt wird. Alternativ können wir auch 
mit 
RP6,1 

Slot 6 und Drive 1 festlegen. Würde sich 

die BENUTZER.DISK in Slot 4, Drive 2 

befinden, so würde der Befehl 

RP4,2 

lauten. 

6. Als nächstes tippen wir 
A 

womit der Puffer in A(scii) angezeigt Ist. 


Wir sehen 
000 -... usw. 

d.h. der Puffer ist Im Moment noch leer. 
Sodann tippen wir 
D 

womit der Puffer als Dump (= Hex-Dump 

-H Ascii) am Bildschirm ausgegeben wird, 

und zwar etwa so 

000 - 00 00 00 usw. 

weil der Puffer immer noch leer ist. 

7. Nun geben wir 
RO 

oder bei Bedarf präziser 
ROOOO 

ein, womit der Block 0 (= $0000) von der 
Diskette in den Puffer gelesen wird (R = 
Read). Anschließend tippen wir erst 
A 

und dann 
D 

um die verschiedenen Anzeigeformen 
kennenzulernen. 

8. Mit 
R-l- 

wird der nächste Block, also Block 1, In 
den Speicher gelesen, mit 
R- 

der vorangehende Block, also wieder 
Block 0. 

Nun lesen wir mit 
R0117 
oder kürzer 
R117 

den letzten Block der 280-Block-Diskette, 
also Block $0117 bzw. dezimal 279, ein. 
Dieser Block ist auf der BENUTZER.DISK 
noch leer, und die Anzeige entspricht so 
der des leeren Puffers beim Programm- 
start. 

9. Wir geben jetzt 
SOOO’MEIN NAME IST HASE 

ein, womit ab der relativen Byte-Position 
(= Offset) $000 der angegebene String In 
den Puffer geschrieben wird. Da der Puffer 
ebenso wie ein ProDOS-Block $200 Bytes 
umfaßt, können wir mit der S-Option einen 
String ab SOOO bis S1FF einfügen. Wir 
beachten ferner den Apostroph vor 
„’MEIN...“, der besagt, daß der String mit 
Bit 7 off in den Puffer übernommen wird. 
Um dies zu überprüfen, tippen wir, wie wir 
jetzt bereits gewohnt sind. 


A 

und danach 
D 

wobei wir im letzteren Fall Hex- und Ascii- 
Darstellung gleichzeitig vorfinden. 

Nun geben wir 

S000“MEIN NAME IST HASE 
ein, womit der String mit Bit 7 on gespei¬ 
chert wird, denn es wird “ statt ’ verwen¬ 
det. Betrachten wir zu diesem Zweck er¬ 
neut nach 

SOOO’MEIN NAME IST HASE 
und nach 
D 

die Hex-Folge, die CD C5 C9 usw. lautet, 
und dann nach 

S000“MEIN NAME IST HASE 
und nach 
D 

die Hex-Folge, die jetzt 4D 45 49 usw. 
heißt. 

Unter ProDOS werden übrigens Dateina¬ 
men im Directory sowie Strings in Textfiles 
stets mit Bit 7 off gespeichert, so daß wir 
normalerweise für entsprechende Ände¬ 
rungen 
SOOO’... 
und nicht 
SOOO“... 

verwenden müssen. 


10. Wir können natürlich auch Bytes direkt 
eingeben, und zwar z.B. mit 
S000:AAAB AC 

was für die Bytes $AA, $AB und $AC 
steht. Nach 
A 

sehen wir „*-F,“, was die Ascii-Werte zu 

den obigen Hex-Bytes darstellt. Statt 

S000:0A0B0C 

können wir übrigens auch 

S000:A B C 

eingeben, d.h. eine „0“ als „linke Hälfte“ 
eines Bytes kann man unterdrücken. Des¬ 
gleichen können wir statt , 

S000:A B C 
auch 

S0:A B C 

eingeben, denn auch bei der S-Option, die 
den Offset oder Abstand zum ersten Byte 
des Blockpuffers ausdrückt, können füh¬ 
rende Nullen unterdrückt werden. 
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11. Wir können jedoch noch mehr tun. Mit 
8080,OFF,AA 

füllen wir den Puffer im Bereich $080 bis 
$0FF mit dem Byte $AA, d.h. mit lauter 
Sternchen, wie man nach 
A 

gut überprüfen kann. 

Auf ähnliche Weise läßt sich auch ein Teil 
des Puffers oder der ganze Puffer mit z.B. 

8000.1 FF,00 
oder kürzer mit 

80.1 FF,0 
völlig löschen. 

Nachdem wir den Puffer gelöscht haben, 

geben wir 

S0:AA 

ein, womit ein einzelnes Sternchen zu Be¬ 
ginn des Blockpuffers eingetragen wird. 

12. Nun tippen wir 
W0117 

oder kürzer 
W117 

oder ganz kurz 
W 

womit der Inhalt des Blockpuffers in den 
Block $0117 = 279 der Diskette zurück¬ 
geschrieben wird. W ist etwas narrensi¬ 
cherer, denn es schreibt den zuletzt gele¬ 
senen Block zurück. Man hätte jedoch 
auch z.B. 

W111 

tippen können, womit ein ganz anderer 
Block, nämlich $0111, überschrieben wor¬ 
den wäre. 

13. Wenn Sie einen Drucker in Slot 1 
angeschlossen haben, so geben Sie jetzt 
PSI 


ein, womit sich EDIT Slot 1 merkt. Mit 
PD 

was für Printer-Dump steht, können wir 
nunmehr den momentanen Bildschirmin¬ 
halt ausdrucken. Probieren Sie die beiden 
möglichen Ausdrucke aus, indem Sie vor 
PD 

zum einen 
A 

und zum anderen 
D 

eingeben. 


14. Bislang haben wir auf Blockebene ge¬ 
arbeitet. Nun laden wir mit 
§/BENUTZER.DiSK 

den ersten Block des Volume-Directory 
von BENUTZER.DISK ein, das nach 
A 

und 

D 

entsprechend angezeigt wird. Ferner kön¬ 
nen wir uns mit 
V 

die Volume-Bit-Map, also die Blockbele¬ 
gung der ProDOS-Diskette, ansehen und 
bei Bedarf über 
PD 

ausdrucken. 

Wir tippen wieder 
§/BENUTZER.DISK 
und dann 
D 

für Hex-Dump und ändern jetzt mit 
S004:F1 

die Länge des Volume-Namens in 1 (dies 
ist das „ 1 “ von „ Fl “) sowie mit 


SOOS’A 

den Volume-Namen selbst in „ A“. Danach 
schreiben wir mit 
W 

diesen ersten Volume-Directory-Block zu¬ 
rück. Wir haben damit den Volume-Name 
der Diskette geändert und können mit 
§/V 

zwecks Kontrolle das geänderte Volume- 
Directory einiesen. 


15. Wenn wir jetzt 
§/A/PRODOS 

eingeben, so wird der „erste“ Block der 
Datei PRODOS eingelesen. Genauer ge¬ 
sagt wird nach 
D 

der Index-Block angezeigt, der etwa so 
aussieht; 

000- 07 09 OA usw. 

Mit 

R- 

gelangen wir auf den physisch ersten 

Datenblock (= $0007) von PRODOS, und 

mit 

R-h 

R-l- 

übersphngen wird den Indexblock und 
können den zweiten Datenblock (= 
$0009) betrachten. 

Soweit die Übungsbeispiele. Weitere 
Feinheiten, insbesondere zur Makrospra¬ 
che, zum Find-Befehl usw. entnehmen Sie 
bitte den Teilen 2 und 3 des dreiteiligen 
EDIT-Beitrags. 

US 


PRODOS SECTOR EDITOR Vl.0 

Source: S6,Dl Blockno: $0002 Target: S6,Dl Blockno: $0002 


PRODOS SECTOR EDITOR Vl.0 
Source: S6,D1 Blockno: $0002 

Target: S6,D1 Blockno: $0002 


0T8- 

00 

27 

53 

54 

41 

52 

54 

55 










. 'STARTU 

078- 

00 

27 

53 

54 




*. 


. 'ST 

080- 

50 

00 

00 

00 

00 

00 

00 

00 

*** 









P. 

07C- 

41 

52 

54 

55 




,; 


ARTU 

088- 

00 

FC 

46 

00 

0E 

00 

9F 

18 

*** 

* , 


3C 


18 


C9 

2C 

• ÖF. 

080- 

50 

00 

00 

00 

*** 


* H 



P. . . 

090- 

00 

B7 

AA 

00 

00 

00 

00 

E3 

*** 








21 

-7*. . ..c 

084- 

00 

00 

00 

00 







098- 

01 

08 

B7 

AA 

00 

00 

02 

00 



., - 

4F 

A7 


*. 



.,7* . 

088- 

00 

FC 

46 

00 

*** 



3C 


-ÖF, 

0A0- 

2D 

41 

44 

52 

45 

53 

53 

45 


00 

00 

00 

00 

00 

00 

00 

00 

-ADRESSE 

08C- 

0E 

00 

9F 

18 

*** 

18 


C9 

2C 


0A8- 

4E 

2E 

54 

58 

54 

31 

00 

00 


00 

00 

00 

00 

00 

00 
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B7 

AA 
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04 

3D 
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05 

00 

Dl 

07 

00 
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00 


00 
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00 

00 
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094- 

00 

00 

00 
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B7 
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E3 
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00 
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01 

08 

B7 

AA 
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4F 

A7 

. .7* 

0C0- 

00 

B7 

AA 

00 

00 

02 

00 
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00 
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00 


00 
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00 

00 

02 

00 
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41 

44 

52 

45 

53 

53 

45 

4E 
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Verkauf Hardware 


Ile, 1 Disk, 80Z+64K, Im 

agewriter, Joyst., Mouse, 30 Bü¬ 
cher, Software... DM 4000,- VB 
Tel. 07222/419 37. 

Verkaufe Apple III und Pro¬ 
file, Software. Preis VB Telefon 
02641/1441. 

Sharp MZ 80 B* parallel-seriell 
Schnittstelle, Grafik-Original-flop- 
py, (NP 5.200,-) umfangreiche 
Software VB DM 2000,-. 

Tel. 02641/1441. 

AP-20 (IBS 68000, 12BK) + 

Softw. DM 600,-. Bauer, Telefon 
071 21/40518. 


Triumpf-Adler Kugelkopf¬ 
drucker 20 Z/Sek., bestes 
Schriftbild, seriell-parallel, VB 
DM 500,- 

Zu verkaufen: Apple Ile, Moni¬ 
tor neu, Imagewriter I, 80 Zeilen 64 
KB Karte, Apple Works VB DM 
2900,-. Tel. 08 21/51 0029. 

Verkaufe Apple Zusatzkar¬ 
ten: 16K, Z80 Karten DM 75,- 
80 Zeichen Karten DM 180,- 
128KB Karten DM 205,-, Ile 
Komp. Mainboard DM 385,-, 80Z 
& 64K für Ile DM 75,-. TEAC 54A 
1 X 40 T. (Apple) DM 279,-, Kom¬ 
plettsystem Ile DM 1680,-, auch 
IBM- Karten/Infos kostenlos. Axel 
Braukmann, Am Sportplatz 51, 
4005 Meerbusch-2, T. 021 59/3626 

Apple II+, 128K, Z80, 80Z, 
Centronics 1 LW 40T, 1LW, 
2x80T. Monitor, Cherry Tastatur, 
viel Software, Tel. 025 94/5538, 
VB DM 2000,-. 

Matrix + Typenraddrucker 

anschlußfertig für alle Computer 
liefert: 

Mail-Shop, Alsterdorfer Str. 201, 
2000 Hamburg 60, T. 040/511 7603 

256 KB RAM-Card DM 160,- 

für Apple \\+. Durch das Aufstok- 
ken Ihrer LC, werden aus 16 KB 
256KB. Wird von vielen Progr. 
unterstützt da Saturn komp. Die 
RAM-CARD unterstützt weiterhin 
Ihre Software für die 16 KBLC. Al¬ 
so senden Sie Ihre LC-f-V-Scheck 
an A. Müller, Lessingstraße 17, 
4000 Düsseldorf. 

Siemens PT 80 mit Apple-Interfa¬ 
ce (Cent.) VB DM 600,-. Telefon 
02641/1441. 


Apple llc, 128K, 2. Laufwerk, 
Plasmabildschirm, AW, Original¬ 
handbücher (NP DM 6000,-), VB 
DM 3000,-. Tel. 02641/1441. 

Verkaufe USA, 1 MB-Ram, 5 
MB-Profile, parallel-seriell 7/7 und 
Bürosystem 2.0 Software, Mac 
Works sowie ca. 30 Macintosh Pro¬ 
gramme, Mulitplan, Jazz etc. VB 
DM 10.000,-. Tel. 02641/1441. 

Gelegenheit: Apple II -I- 64K 
komp. UIDEX 80Z-Karte 2x40 
Spurlaufw. im Rechnergehäuse, 
externe Preh Tastatur, Epromer 
Karte BMC Mon. DM 2000,- FX80 
Drucker mit Grafik-Interface DM 
1200,- Tel. 071 29/5027. 

Ilc (12/85), Imagewriter II 

(12/85), Monitor, Joystick, viele 
Bücher, Software, Garantie DM 
4500,- Balfer VIA-Karte (Peeker 
5/85), 220V Steuerung, Soft¬ 
ware VB DM 250,- Mahr, Tel. 
0711/31942 55. 

Apple II e/c komp IBM, Look, 
2LW, Drucker, Karte, Modem, Kar¬ 
te RGB, Karte, Eprommer, Monitor, 
Bücher, Software. Preis VB, Tel. 
023 84/39 09. 

Verkaufe IBS AP17256K Ram- 
Karle mit ausführlichem Hand¬ 
buch. Ine. Software für DOS u. 
CPM 2.2 Preis auf Anfrage. Tel. 
052 54/688 54. 

EPSON FX-80-E mit Grafikin¬ 
terface Literatur u. Software VB 
DM 1250,-, Daniel Keng, Tel. 
021 96/24 63. 

Verkaufe APPLE ll-E mit Z80, 
64KB, Speechcard, 2x40 Track 
LW, Drucker Wildcard, ca. 40 Disket¬ 
ten -L Box, jede Menge Bücher, etc. 
VB: DM 1995,-, Tel. 06103/34900 
ab 17h. 

Apple Ilc, 2.LW, Monitor, 
Maus, Joystick RefMan, Soft¬ 
ware (270 Disk) -L Lit. 3 Mon. alt, 
Preis VB Tel. 0 23 61 /4914 30. 

Fernschreiberinterface am 

Gameport m. Programm DM 79,- 
P. Benner, Hubertusstr. 131,4150 
Krefeld 


Apple Ile 128K, Ramdisk 256K, 
2 Drives, EPSON FX-80, unheim¬ 
lich viel Soft- u. Paperware. Tel. 
089/801838. 

Verschiedene Apple-Erwei- 
terungs-Karten z.B. Ram- 
works, Accelerator Uhr, Z80, 
Wandler u.v.a. zu verk. Tel. 0212/ 
5493 36 nach 18 Uhr. 


Neues 40TRK. SL-Laufwerk 

mit Apple-Bus, o. Gehäuse, Made 
in USA, 6 Mon. Garantie, DM 
230,-. Tel. 0 6482/322. 

Apple II+, 64K, 3 Laufwerke, 
Monitor (22 Mhz), div. Karten. Tel. 
02351/5 2257 ab 14.00 Uhr. 

2 BASRAM 256 K UCSD DOS 
CP/M für Il/Basis /08 etc. wie neu 
1/2 Preis. Tel. 040/229 93 91. 

Apple Ilc, Maus, Philips-Monitor 
-t- Softw. + umfangreiche Literatur 
für DM 1900,-. Tel. 0211 /2233 90 

Macintosh 128 auf 512KB 

DM 299,-. Fa. Schlösser, Tel. ab 
17.00 Uhr, 089-9858 89 


Ankauf Hardware 


Abrechnungssoftware (Kran¬ 
kenkassen) von der KBV zuge¬ 
lassen, Lightpenbedienung ge¬ 
sucht. Zahle bis DM 4000,-. Tel. 
02641/1441. 

Suche Apple Ill-System. 

Tel. 02641/1441. 


Verkauf Software 


lle+c: CAD paint: exakte 
Zeichnungen m. Beschriftung (2 
Stärken), 40 Funktionen, 80 fertige 
Symbole für Wohnungspläne -F 
elektr. Schalt. Info 2 DM, Briefm., 
Disk: DM 99,- Scheck. Lohmann, 
M.-Müller-Ring 7, 6500 Mainz 

SUPERPROGRAMME FÜR 
APPLE-2 (R) Lottoprogramm 
LOT 2000 CP/M DM 29,90 Moni- 
torprg. (MEMDIT-1) (DOS) DM 
24,90, Prg. für dBASE II 2,4 (Quell¬ 
text), Dateibearbeitung (DB-DA- 
TEl) DM 10,- Programmierung 
(DB-PROGRAMM DM 10,- DB- 
Prg. werden als Listing geliefert 
sonst Apple-CP/M-Disk u.P/V incl. 
M. Filbrich (Abt. Softcontrol), 
Hauptstr. 22, 3171 Adenbüttel Tel. 
05336/8259. 


Software Uhr für Apple 11 +, e, 

c, Zeitschaltmögüchkeit Diskette -F 
Anleitung DM 25,- Oecking 
Tel: Do. 0231 /391920 


Utilities-Tools-Grafik: prof. 

Prg. für Apple ll-F, Info gegen 
Rückporto bei: Büttner, Brüder- 
Grimm-Str. 4, 3180 Wolfsburg 12. 

Sonderangebot 
Disketten 3 1/2“, 1DD 135 
TPI, DM 6,00, Disketten 3 1/ 
2“, 2DD 135 TPI DM 7,50, 
Disketten 5 1/4“, ID 48 TPI, 
DM 2,10, Disketten 5 1/4“, 
2D 48 TPI, DM 2,30, PL-Box 
m. Schloss f. 100 St. DM 28^-. 
Alle Disketten m. Garantie und 
Verstärkungsring. Fa. Allg. Austro 
Agentur, Ringstr. 10, D-8057 

Eching, Telefon 0 81 33/61 16, 
Tlx. 5 27551. 

!!!! Die Supergelegenheit !!!! 

Top-Apple-Games (engl.): Ultima 
II 29,-, Wizardry I 29,-, Wizardry II 
25,-, The Heist 9,-, Wizard & Prin- 
ce 8,-, Ulysses 19,-, Time Zone 
39,-, Dino Eggs 19,-, Miner 
2049er 19,-, Wiziprint 9,-, Poli. 
Art. 19,-, Crypt of Medea 29,- 
Starmaze 9,-, Galactic Attack 9,-, 
Mission Asteroid 19,-. 

Schnell bestellen: 089/93 98 94! 
Nur so lange die Vorräte reichen 
FUN*TASTIC-MailOrder GmbH. 

MEGABOARD Version A 
(CP/M 3.0): jetzt endlich mit Pro- 
DOS-Anpassung durch neuent¬ 
wickelte Patch-SW Änderung ge¬ 
gen Einsendung der alten SW und 
DM 50,- an Matthias Meyer, Postf. 
191, CH-9001 St. Gallen. 

APPLE II: DFÜ-Kermit, Pascal 

satt, Public Domain in DOS v.CP/M. 
Je Volume DM 15,-. Bahnhofssimu¬ 
lation, Sprachen (S.A.L), Schulprogr. 
Gratisinfo: Fa. Waltraud Muhle, Wald¬ 
winkel 3, 2105 Seevetal 3. 

65C02-TRACER + Debugger 

mit Windowtechnik, 176S. Hand¬ 
buch Anfänger: Einstieg in ASSEM¬ 
BLER Fortg.: Leistungsfähiger 
DEBUGGER DM 79,-. Telefon 
07071/74544, Stimmler Elektr., 
7400 Tübingen, Heinlenstr. 34. 

Apple-Il. Frei-Prg.-Liste anf. b. 
Fa. Josef Gebhardt, PF 1174, 8458 
Sulzbach-Rosenbg. Tel. 0 96 61/ 
52916. 

Das neue Mittwochslotto zu 
DM 25,— Der Turm von Hanoi zu 
DM 10,- Förter, Am Wetterbach 53, 
75 Karlsruhe 41. 

Apple II. DFÜ-Kermit, Pascal 
satt, Lisp, Public Domain in DOS 
und CP/M: Je Volume DM 15,- 
Schulpro. Gratisinfo: Fa. Waltraud 
Muhle, Waldwinkel 3, 2105 Seevetal 3 
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Für Ihre Unterlagen 

Abonnement bestellt 


am:_ 

Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag GmbH. Postfach 
102869, 6900 Heidelberg innerhalb 
von 7 Tagen widerrufen kann. Zur 
Fristwahrung genügt die rechtzeitige 
Absendung des Widerrufs (Datum 
des Poststempels). 


Peeker 

Leserservice 

Postfach 102869 
6900 Heidelberg 




■8 

Q 


Ja, ich möchte Peeker abonnieren. 

Liefern Sie mir Peeker ab Ausgabe ...zum Jahresbezugspreis 

von z. Zt. DM 72- (Inland) inkL MwSt. Die Lieferung erfolgt frei Haus, Porto, Ver¬ 
packung und Zustellgebühren übernimmt der Verlag. Der Jahresbezugspreis für 
das Ausland beträgt z. Zt. DM 72 - plus DM 18,- Versandspesen. 



__ X __ 

Datum 1 . Unterschrift 

Bitte lesen! 

Vertrauensgarantie: Ich habe davon Kenntnis genommen, daß ich die Bestellung schriftlich durch Mitteilung an den 
Dr. Alfred Hüthig Verlag GmbH, Postfach 10 28 69, 6900 Heidelberg innerhalb von 7 Tagen widerrufen kann. Zur 
Fristwahrung genügt die rechtzeitige Absendung des Widerrufs (Datum des Poststempels). 



_ X ____ 

Datum 2. Unterschrift 

Verlagshinweis: Das Abonnement verlängert sich zu den jeweils gültigen Bedingungen um ein Jahr, wenn es nicht 
2 Monate vor Jahresende schriftlich gekündigt wird. 

Wir können nur Bestellungen mit zwei Unterschriften bearbeiten. 


Für Ihre Unterlagen 

Folgende Bücher bestellt: 


am:_ 

bei: 

Peeker 

Versandbuchhandlung 
Postfach 102869 
6900 Heidelberg 1 


-f^^^^pEEkER^ 


0 


■c 

Q 


Bitte senden Sie mir gegen Rechnung folgende Bücher: 


S 

I 


o 

3 



D Büfiler, Applesott-BASfC, 
3-7785-1094-0, DM 38,- 

□ Eggerich, dBase II, Bd. 1, 
3-7785-1147-5, DM 39,80 

□ Eggerich, dBase II, Bd. 2, 
3-7785-0987-X, DM 39,80 

□ Eggerich, dBase II, Bd. 3, 
3-7785-0988-8, ca. DM 40,- 

□ Gabriel, Applewriter, 

3-7785-1234-X, DM 35,- 

□ Hagemüller, Microsoft-BASIC, Bd. 1, 
3-7785-1038-X 

□ Juhnke/Redlin, Apple Pascal, Bd. 1, 
3-7785-1246-3, ca. DM 40,- 

□ Kehrel, Apple Assembler lernen, Bd. 1, 
3-7785-1151-3, DM 38- 


□ Kehrel, Apple Assembler lernen, Bd. 2, 
3-7785-1170-X, ca. DM 38- 

□ Schäpers, ProDOS Analyse, 
3-7785-1134-3, DM 68,- 

n Schäpers, Bewegte Apple-Graphik, 
3-7785-1150-5, DM 58,- 

□ Stiehl, Apple DOS 3.3, 

3-7785-1297-8, DM 28,- 

□ Stiehl, Apple ProDOS, Bd. 1, 
3-7785-1098-3, DM 28,- 

□ Stiehl, Apple ProDOS, Bd. 2, 
3-7785-1036-3, DM 30,- 

□ Stiehl, Apple Assembler, 
3-7785-1047-9, DM 34,- 

□ Wassermann, Apple llc Handbuch, 
3-7785-1157-2, DM 35,- 


Dalum 


Unterschrift 


Für Ihre Unterlagen 

Folgende Disketten 
und Programme bestellt: 


am:_ 

bei: 

Peeker 

Softwareabteilung 
Postfach 102869 
6900 Heidelberg 1 


pEEkER ^ 

jl) Bitte senden Sie mir gegen Rechnung folgende Disketten: 



□ Peeker-Sammeldiskette, einzeln 

Disk#_, Disk#_ 

Disk#_, Disk#_ 

Peeker je Disk DM 28,- (einzeln) 

□ Peeker-Sammeldiskette, 
im Fortsetzungsbezug 

ab Disk#_ 

(Mindestbezug 6 Disketten) 

Preis je Disk DM 20,- 

□ Apple DOS 3.3, Begleitdisk., DM 28,- 

□ ProDOS, Band 1, Begleitdisk., DM 28,- 

□ ProDOS, Band 2, Begleitdisk., DM 28,- 

□ Apple Assembler, Begleitdisk., DM 28,- 


□ ProDOS-Editor 1.0, Programm, DM 98,- 

□ MMU 2.0, Programm, DM 98,- 

□ INPUT 2.0, Programm, DM 98,- 

□ Softbreaker 1.0, Programm, DM 48,- 

□ DB-Meister, Programm, DM 290,- 

□ Superplot, Programm, DM 48,- 

□ Superquick, Programm, DM 48,- 

□ Turtle Graphics, Programm, DM 98,- 

□ Disk 40, Programm, DM 48,- 

□ Kyan-Pascal 2.0, Programm, DM 170,- 

□ Fast-Writer, Programm, DM 98,- 



UntfwschriH 
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Marne 


Ffrma 


Siraße 


PLZ/Ort 

Ich wünsche jährliche Berechnung durch: 

□ Verlagsrechnung □ Abbuchung von 
meinem Bank- bzw. 
Postscheckkonto 


Bank/PschA 


Gankleilzaht 


KIO.-NF. 


POSTKARTE 

Peeker 

Leserservice 

Dr. Alfred Hüthig Verlag GmbH 
Postfach 1028 69 
6900 Heidelberg 


INPUT 2.0 

Ein Bildschirm- 

Maskengenerator 

für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1021-5 

„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u. a. definieren: Feldlänge (bis zu 255 
Zeichen) - Vtab - Htab - Datentyp (insge¬ 
samt 8 Typen) - Scrollflag (starre oder dyna¬ 
mische Maske) - Ctriflag - Füllflag - Lösch¬ 
flag - Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder Ile; fer¬ 
ner Apple ll-F im 40-Zeichenmodus 



Karte bitte vollständig ausfüllen 


Vornftt^e. Nams 


Rmta 


Straßa 


PLZ/On 


Telefon mit Vorwahl 



Karte bttte vollständig aiisfüllen 


Vorname. Name 


flflllÖ 


SireGe 


PLZ/Ofl 


Telefori' mit Vorwahl 


POSTKARTE 


Peeker 

Buchabteilung 

Dr. Alfred Hüthig Verlag 
Postfach 1028 69 
6900 Heidelberg 1 


MMU 2.0 

Memory Managements 
Utilities 

für die Apple Ile 64K-Karte 
DOS 3.3 (und ProDOS) 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 

Insgesamt enthält die neue „MMU 2.0"- 
Diskelte über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 
Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder llc 


POSTKARTE 

Peeker 

Softwareabteilung 
Dr. Alfred Hüthig Verlag 
Postfach 10 28 69 
6900 Heidelberg 1 


Softbreaker 1.0 

Eine softwaremäßige Interrupt-Utility 
für die Apple Ile 64K-Karte 

von U. Stiehl 

1984, Diskette und Manual, DM 48,- 
ISBN 3-7785-1022-3 

Softbreaker ist ein Assemblerprogramm, mit 
dessen hülfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön¬ 
nen. Dadurch ist es auch möglich, Siche¬ 
rungskopien von sogenannten kopierge¬ 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein¬ 
schließlich Language Card, in nur ca. 11 Se¬ 
kunden auf einer formatierten Diskette gesi¬ 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte, nicht llc, nicht neue ROMs 

Hüthig Software Service, 

Postfach 10 28 69, D-6900 Heidelberg 
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Verkauf Software 


Ankauf Software 


Apple II: Verkaufe Topsoftwa¬ 
re! Z.B.: Ballblazer DM 110- Mer¬ 
lin pro Z50- Kundenverwaltung 
50- Info (0,80) bei: W. Rittmeyer, 
Wehrbruchweg 30, 4060 Viersen 1. 

Pcucal, KYAN u. Turbo 3.0, org., 
Manuals, neu DM 300,-. Telefon 
026 66/704. 

Profi-Soflware für den Apple 
II/+ /e/c. Fakturierung DM 380,- 
Kundenverwaltung DM 210,-, La¬ 
gerverwaltung DM 380,-, alle Pro¬ 
gramme sind verknüpfbar, Liste 
gegen DM 2,- in BRM. Demodisk 
I DM 50,-. Tel. 0211/7 33 77 78. 

Endlich lieferbar! BABEL II der 
interaktive Debugger mit vielen 
Hilfsfunktionen und ausführl. 
deutsch. Handbuch. Lieferung per 
Rechnung ab Mai 1986, DM 37,90, 
Ruf, Clemensstr. 74, 8 München 40 


Suche Spiele für Apple Ile, 

Tel. 022 04/682 31. 


Suche Init/Treiber usw. Für 

BASIS 256K Ramkarte/Ile/UCSD 
PASCAL 1.2 (evtl, auch DOS 3.3). 
Ingram, Lütticherstr. 30, Köln 1. 

CP/M 2.2 Systemdiskette 
gesucht für Ile A. Grün Telefon 
021 51/30 21 77 

Handwerkerprogramm/ 
Schreiner auf Ile. W. Müller, 
Sandhäuser Str. 1, 6900 Heidel¬ 
berg, Tel. 0 6221/7811 32. 


Verschiedenes 


AWorks-Patch f. Epson-Inter- 
face DM 20,-; Steffen Holzinger, 
Berliner Str. 62, 6301 Biebertal. 

Vokabeltrainer 1.0 Apple II 
Preisträger Jugend forscht ’85 Kar- 
teik. sys., Lexikonfunktion Info DM 
2,- B. Beckert, Zähringerallee 37, 
7530 Pforzheim 1. 

Window-Technik für APPLE¬ 
SOFT bei allen Apple Il-Typen 
DM 35,-, Heinz, Waldgürtel 7, 
5060 Berg. Gladbach 1 

Jane u. Dazz/e Draw (Orig.) 

zu verk. DM 250,-. Telefon 
0 28 37/8453 ab 17 Uhr. 


APPLE REPARATUREN 

(auch compatible M-boards, z.B. 

Atias, Area, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 -F 64, Plato, Radix, o. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali¬ 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 

Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag, 
aaa-electronic gmbh 

Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642aaad 


DFÜ-Szene CH: die interessan¬ 
testen Auszüge aus schweizer 
Mailboxen mit vielen Tips und 
Tricks auf randvoller Apple-Disk 
gegen Einsendung von DM/Fr. 
10,- an Matthias Meyer, Postf. 
191, CH-9001 St. Gallen. 

Apple lic + Brother M-1009 wer 
kennt Konfiguration für Text -f- 
Grafik (seriell)? Norbert M. Dörr, 
H.-Heine-Str. 1. 6307 Linden. Tel. 
0 64 03/84 79. 


!!!! Da gibt’s was umsonst!!!! 

4 X im Jahr den neuen Katalog. 
Bühler Elektronik, Postfach 32, 
7570 Baden-Baden 

Apple III Bes. wg. Erfah- 
rungs/Prg. Austausch usw. bt. 
melden, Eckl, Bichlerstr. 4b, 8122 
Penzberg. 


Für weitere Informationen 
zu einem der in dieser 
Ausgabe vorgestellten 
Produkte stehen Ihnen 
die Produktkarten zur 
Verfügung. 


Bitte verwenden Sie für 
Kleinanzeigen die vorge¬ 
druckten Antwortkarten 
in diesem Heft. 


Apple und IBM 


kompatible Computer 

16K, Z80, Diskcontroler je. 

80 Zeichenkarte mit Softswitch 

. . 98- 

2 Zeichensätze .. 

. . 198- 

Ile-kompatibles Motherboard 
ohne Firmware. 

. . 498 - 

Erphi-controler mit Autopatch . . . 

. . 285 - 

TEAC FD-54A mit Apple-Bus . . . 

. . 298- 

TEAC FD-55B-V 2 x 40 Track . . 

. . 395- 

TEAC FD-55F-V 2 x 80 Track . . 

. . 448- 

FD4 Spezialcontroler für Laufwerke 
mit bis zu 2 X 80 Track. 

. . 120- 

OLYMPIA compact NP . 

. 1298- 

Monochrome Monitore. 

ab 375- 

Farbmonitore. 

ab 998- 

Tastaturen für IBM und Apple . . . 

ab 298- 

512K-RAM-Karte mit 256 K 
bestückt. 

. 298,- 

Apple Super-Modem-Karte inkl. dt. 
Software und dt. Handbuch .... 

. . 348- 

Versand nur per Nachnahme oder Vorkasse. 
Weiteres Zubehör für Apple und IBM gegen 

frankierten Rückumschlag. 

128K Karte (Saturn kompatibel) 

. 248,- 

Ulf Mohwinkel Electronic 

Berliner Straße 73 Pf: 250166 

5090 Leverkusen Fettehenne 

Telefon 0214/93781 od. 95060 


etphi 

640KB Controller und Floppy für 
Apple ll+/e und kompatible. 

Generalvertretung für die 
Schweiz und FL 

(Händleranfragen erwünscht) 

beltronic 

Im Chapf CH-8455 Rüdlingen 
Tel: 01-8 6731 41 • Tlx 825981 

Weiter führen wir: 

IBM kompatible PC ab 2400,- 
Apple Ile kompatible ab 1200,- 





electronic 


Neue Preise # 6 


IMB-PC/XT-COMPATIBLE COMPUTER + ZUBEHÖR 
Mainboard XT f. 16bit + 256K-RAM + 8 Slots, Leerkarte 79,— 

Mainboard XT-640 K (on Bord) f. 16 Bit + 8 Stots Leerkarte 89,— 

Disk Controller leer (f. 4 x 360KB-Drives) 34,— 

Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 55,— 

Color RGB -r Video Graphik Leerkarte 55.— 

Parallel Printer Leerkarte 29,— 

Disk-Muliti I/O Leerkarte, (f. 3x-360 K-Drive, 2xRS 2321 xpar. Printer 
Int., Game/Joystick Port. Real Time Clock/Kalender gepuff.) 59,— 

384 K-Multifunktions Leerkarte. (RS 232, par. Printer Int., 

Game/Joystick Port, Real/time Clock/Kalender gepuffert) 55,— 

Prototype/Lochraster Leerkarte, durchkontaktiert 69,— 

Mainboard XT-256 f. 16 bit CPU, OK (bis 256K-on board, oder 
640 K mit Addr. auf Karte aufr.) + Boot-ROM + 8 Slots best. + geprüft 315,— 
Mainboard XT-6401.16 bit CPU. OK (bis 640 K-on board aufr.) 327,— 
Mainboard XT-640 w.o. jedoch 256 K-RAM best. + gepr, 417.— 

Mainborard XT-640 w.o. jedoch 640 K - vollbest, und geprüft 587,— 

64KB-RAM-Chip-AufrüstsaU (9 Stück) einzeln geprüft! 42.— 

256 KB-RAM-Chip-Aufrüstung (9 Stück) einzeln geprüft 97,— 

Disk Controller gepr. (f. 4 x 360 KB-Drives)(Extra Kabel = 39,—) 109.— 

Monochrome Karte geprüft 235,— 

Monochrome Graph, -i- par. Printer Karte gepr. (Hercüles comp.) 288,— 

Color RGB + Video Graphikkarte gepr. 166.— 

Parallel Printer-Karte gepr. o. Kabel (Extra Kabel = 49,-) 77,— 

512K-RAM-Karte gepr. (0KB) 129,— 

384K-Multifunktionskarte, RS 232, par. Printer, Inten. Game/Joystick Port, 
Real Time Clock gepuff., OK + RAM-Disk/Spooler/Uhr Sottw. 325,— 

Disk Multi I/O Karte (f. 2x360 K-Drive, 2xRS 232,1 xpar. Printer Int., 
Game/Joystick Port, Real Time Clock/Kalender gepuff.) 388,— 

Profi-Funktionstastatur ASCII +15er Block ab 215,—/dl. ab 245,— 

135W/150W-Netzteil mit eingebautem Ventilator, Kurzschlußf. 219,—/279,— 
360KB-Diskdrive Slimline (Track Access Time <2 m S). R/W gepr. 319,— 
Joystick f. IBM + Compatible 79,— 

Maus incl. Software f. IBM + Compatible 299,— 

PC/XT - KOMPLETT-SYSTEME EINGEBAUT UND GEPRÜFT 
XT-640,16 bit-Rechner (incl. Boot-Eprom) 256K-Ram im 
IBM-look-like MeL-Gehäuse+Profi-Fkt Tast+135 W-Netzt gepr. 999,— 
XT-640,w.o.+Contr.+360KBDrive-HColor RGB+Vid. Graphic-Karte 1.677,— 
XT-640, w. o. jedoch statt Color mit Monochrome Karte 1.737,— 

XT-640, w. o. jedoch mit Monochrome-Graphic-Printer-Karle 1.817.— 

Aufpreis für XT-640 M-board mit 640 K 

vollbestückt+gepr. 169,— 

20 MB-NEC-Festplatte + DTC-Controller mit Kabel + Man., geprüft 2375,— 


3.876,— 


PHOENIX GENIE 16 C -PC-compatibel 


APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 
Motherboard II48K leer, durchkont. mit Lötstopplack 
Motherboard II 64 K+Z 80 CPU, leer 
M-board II48K, gesockelt, vollbest, + gepr. 

Motherboard II 64K gesockelt, vollbest.+gepr. 

M-board II 64K -i- Z80 CPU, gesockelt, v. best. + gepr. 

M-board Ile 64K vollbestückt + gepr. 

APOLLO II Kunststoff-Leergehäuse 
APOLLO II Gehäuse incl. Funkt.-Tast. 

Superstarkes Netzteil - Kurzschlußlest 5A=115,—/7A= 
Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 
Parallel-Druckerkarte, Ser. Int. V24,80Z/24Z-Karte, PAL-Karte je 
Entwicklungstochraster-Leerplatine durchkontaktiert 
16K-Speicher-Karte geprüft 
APPLE orig. 16K-Language Karte gepr. 

2-80 CPU-Karte geprüft 
Controller DOS 3.3-Karte geprüft 
Auto-Controller DOS 3.2/3.3-Karte gepr. 

Erphi AFDC 2 Controller + Autopatch Sottw. + Handbuch 

Parallel-Drucker-Karte geprüft 

Par.-Drucker-Grappler comp. Leerplatine 

Par.-Drucker Karte-Grappler comp, geprüft (Extra Kabel=45,—) 

8bit par. Int + 64K-Buffer + Kabel gepr. (Grappier comp.) 

Seriell-lnterface-Karte V24 geprüft 

Super-Seriell Leerkarte 

Super-Seriell-Interface Karte gepr. 

80-Zeichen/24-Zeilen-Karte geprüft 
80Z/24Z-Karte + Softswitch-Schalter Leerplatine 
80Z/24Z-Karte + Softswitch-Schalter, gest. Scharf geprüft 
80Z/24Z-Softwitch Karte gepr. für Ile 
80Z/24Z+64K-Ram+Softsw. Leerkarte f. Ile 
80Z/24Z-f 64K-Ram+Softsw.-Karte besL+gepr. f. Ile 
IEEE-488 Int. Karle gepr. (Extra Kabel=45,—) 
PAL-Modulator/Color-Karte geprüft 
RGB-Color Karte gepr. 

128K-Speicher-Leerkarte 

128K-Speicher-Leerkarte -f Software + Manual 

128K-Speicher-Karte -h Software geprüft+Manual 

Maus incl. Software 

EPROM-Burner (2716/32/64) geprüft 

6522-VIA Karte geprüft 

Clock Karte geprüft 

Speech Karte geprüft 

Wild Karte geprüft 

AD/DA-8Bit Karte gepr. 

UHF/TV-Modulator universell 
Lüfter anclipsbar (220 V) 

Dataphon s21d Akustikkoppler-FTZ mit RS 232/V24 Anschi. 


APOLLO//(48K) + UHF-Mod. + Gr/Kl vollbest ^ gepr. 
APOLLO//(48K) + Disk 11F -l- Contr. + 12"-Monitor 
APOLLO//A (48K) + Gr/Kl -I- 15er-Tastatur vollbest -l- gepr. 
APOLLO//A (48K) + Disk II F + Contr. + 12"-Mon. 

APOLLO// ASKF (48K) vollbest. + gepr. Sep. Keyboard + Gr/Kl -f 
15er-Block mit Funkt.-Tasten im „IBM-Iook like" Gehäuse 
APOLLO// ASKF (48K) w.o. + Disk IIF + Contr. 

Apollo IIASFK (48K) w.o.+2xDi8k ll-F-f Contr.-t-IZ” Mon. 

Aufpreis f.o. Systeme von 48K zu 64K 

Aufpreis von 48K zu 64K-I-Z80 CPU 

Apollo Ile (64K) vollbest, und geprüft 

Apollo Ile (128K)+80Z/24Z-Karte geprüft 

Applle Ile (64K)+15er-Tastatur vollbestückt 

Apollo Ile ASKF (64 K) vollbestückt und geprüft 

Apollo Ile (64K) -I- Disk II F-t-12” Monitor _ 


APPLE Ile 128K+80Z/24ZKarte+Softw. 1.9 

Disk-Drives voll APPLE II, 100%ig compatibel + R/W geprüft 
Disk//+Contr. + Kabel DOS 3.3 (Siemens) im Geh. £ 

Disk//(Siemens) im Geh. + Kabel 4 

Disk//F (1/2 Höhe) im Gehäuse+Contr.-i-Kabel 2 

Disk//F (1 /2 Höhe) Im Gehäuse i 

Disk//F-HS (High Speed 1/2 Höhe) im Gehäuse+Confr.+Kabel £ 
Disk//F-HS (High Speed 1/2 Höhe) im Geh.+Kabel (Track Ac.<2mS) £ 
Disk//F-HS-80 Track im Gehäuse + Kabel f. orig. Contr. geeignet £ 
Disk//F-HS-80 w.o. + Contr. + DOS 3.3 + CP/M Patch-Softw. 4 

Erphi DuoDisk 1,2 MByte im Gehäuse + Erphi-AFDC 3-Contr. 1.1 


APPLESOFT + Turorial Reference Manual engl. 
APPLE-DOS 3.3 Manual engl. 

APPLE-DOS 3.3 Hb. dt 

APPLE-Pascal Reference -f Operating Manual engl. 
APPLE-Pascal Reference Hb. dt. 

APPLE-Pascal Language Hb. dt. 

APPLEII-Pascal Hb. dt. (te-wi) 

APPLE-Fortran Manual engl. 

CP/M-Softcard Voi. I + II, Manual engl. 

APPLE Il+Ile-Anwenderhandbuch deutsch (te-wi) 


Epson LX 80,8 Bit/par. (Extra Traktor = 69,—) 

EPSON FX 85F/T-I-, 8bit/parallel 160 Z/S. NLQ + IBM Komp. 
EPSON FX 105+, 8bft/parallei 15” sonst w.o. 

EPSON Traktoraufsatz für FX 80 + FX 85 
APPLE/EPSON-Drucker Graphic-Interface + Kabel 
MX 80/82, FX/RX 80 Spezialfarbband-Kassette 



Oer Pack/IOOe 
FUJI 

Pack./ Stückpreis: 

DATA NEUTRAL 

MAGNE- 

TICS 

4,27/ 3,97 
5,87/ 5,47 

2,56/2,46 2,25/2,15 
3,26/3,06 2,75/2,55 

i 7,87/ 7,67 
12,87/12,57 


5 6,97/ 6,67 

Das 

i 10,17/ 9,77 

sind 

5 7,67/ 7,17 

) 11,17/ 9,97 

Preise! 


3M-Scotch S'A" RUssig-Reinigungsset (2 Disk.) zweiseitig 

S'A" DIsketten-Archivbox für 10 Disks (1 St./10 St.) 4,7 

S'A" DIsk-Kartelkasten Kunststoff (ca. 80 Disk) 

S'A" Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 
S'A" Disk-K.K.Rauchglas, abschließb. (f. ca. 80-100 Disks) 

2000 Bl. Tabpapier (24 cm x 12" einf.) weiß oder grün/weiß perf. 
4000 Et-/Ujfkl. doppelr. (107 x 36 mm auf 240 X'12" perf. Trägerp.) 
4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12" perf. Träg.) 
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Meg 


oard- und 
enspeicher 

Mit ProDOS-Backup-Programmen 
für die MDB-Festpiatte und das Erphi-Subsystem 


von Ulrich ^ 


Hinweis: Die unten geiisteten Back- 
up-Progrannme\fiönnen in nnodifizierter 
Form auch bei\^deren Fabrikaten als 
Fioppy-Harddisk^mierprogramme sowie 
darüber hinaus alkf^ppy-Floppy-Kopier- 
Programme verwende werden. 

1. DisMhNachfolli 

Die Besitzer von DisV-lj- oder Duodisk- 
Laufwerken werden sicA langfristig nach 
neuen Laufwerken umseraen müssen, da 
die alten SS-Spur-DriveasVt Anfang 1986 
auslaufen. Dies ist [nscnem bedauerlich, 
als bislang alte kommeLiillen Apple-Il- 
Programme auf 35-Spur-fci^etten ausge¬ 
liefert wurden. Es wird all^dings nach wie 
vor funktionsgleiche Laufwerke von 
Fremdherstellern geben, die zaudern meist 
als 40-Spur-Drives ausgel\g\sind. Von 


Apple selbst sind in Zukunft nur noch 3,5- 
Zoll-Drives erhältlich, von denen wir ein 
Testexemplar auf der „Systems“-Messe 
im Herbst 1985 angefordert haben. Jetzt 
im April 1986 wurde das Drive genehmigt, 
da das Werbe-Kontingent, wie es hieß, 
„vorübergehend“ erschöpft sei. Und da 
vor kurzem der Geschäftsführer R.M.Deja 
sowie der Controller (= Finanzchef) E 
Schmollinger bei Apple „freigestelit“ wur¬ 
den, könnte es mit dem Test-Drive noch 
länger dauern. All dies ist lächerlich, klein¬ 
kariert und kurzsichtig. Beispielsweise ha¬ 
ben wir von Atari den 520 St bereits zu 
einem Zeitpunkt erhalten, als das Gerät in 
Deutschland noch gar nicht auf dem Markt 
war. Wenn Apple-München nicht einmal 
der größten deutschen Apple-Zeitschrift 
Testgeräte überlassen kann (aus finanziel¬ 
len Gründen) oder überlassen will (aus 
politischen Gründen), dann liegt das Mar¬ 
keting bereits derart im argen, daß man 
sich nicht mehr zu wundern braucht, wenn 
jedes Jahr die Köpfe rollen, denn eine 
billigere indirekte Werbung als eine gerä¬ 
tespezifische Fachzeit gibt es nicht, selbst 


wenn im Peeker gelegentlich Kritik geübt 
wird. Die „Infowelt", Heft 14/1986, drück¬ 
te es in den Beiträgen „Image und Umsatz 
futsch“ und „Apple auf Schleuderkurs“ 
erheblich drastischer aus: Danach soll, 
was von Apple nicht dementiert wurde, der 
BRD-Umsatz von 92 Mio. im Geschäfts¬ 
jahr weit hinter dem Plansoll von 140 Mio. 
zurückgeblieben sein, und man peile für 
1986 nur noch 65 Mio. an. 

Wir werden uns deshalb im Peeker zu¬ 
nächst mit den durch ein optimales Preis/ 
Leistungsverhältnis bestechenden 

Datenspeichern der Firmen Frank & Brit- 
ting sowie Erphi Electronic befassen, zu¬ 
mal man bei diesen Produzenten als End¬ 
abnehmer im Falle technischer Fragen an- 
rufen darf, was bekanntlich bei Apple- 
München nicht erwünscht ist, obwohl man 
dort nicht verkennt, daß der Apple-Händler 
bei der Anpassung einer Festplatte norma¬ 
lerweise überfordert ist, denn schließlich 
ist ein Händler ein Händler und kein Sy- 
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stemprogrammierer. Wenn dann nicht der 
Produzent oder wie hier der Peeker hilft, 
dann hilft eben keiner. 

2. Wozu größere Datenspeicher? 

Falls Sie bislang nur 35- oder 40-Spur- 
Laufwerke benutzt haben und nunmehr 
auf ein 160-Spur-Subsystem der Firma Er- 
phi und/oder auf eine Festplatte der Firma 
Frank & Britting umzusteigen gedenken, 
so sollten Sie folgende Punkte berück¬ 
sichtigen. Vorab jedoch einige Defini¬ 
tionen: 

Disk-Il-Laufwerk; 35-Spur-Laufwerk für 
5,25-Zoll-Disketten (SS/SD = single si- 
ded, single density = einseitig, einfache 
Spurdichte) mit 140K Speicherkapazität 
(= Netto-Speicherkapazität) pro Diskette 
nach Formatierung (1K = 1024 Zeichen): 
pro Controller 2 Laufwerke anschließbar 
(Controller = Steckkarte zur Datenüber¬ 
tragung zwischen Laufwerk und Rechner): 
Duodisk mit eigenem Controller als spe¬ 
zielles Doppellaufwerk erhältlich; Daten¬ 
übertragungsrate normalerweise maximal 
8,2K/s (gut 8.000 Zeichen/Sekunde); Be¬ 
zugsquelle: Firma Apple; Preis für Dop¬ 
pellaufwerk inkl. Controller ca. DM 1400,- 
bis 1800,-, je nach Händler. 


Erphi-Subsystem: 1 60-Spur-Doppellauf- 
werk für 5,25-Zoll-Disketten (DD/DD = 
double sided, double density) mit 640K 
Speicherkapazität pro Diskette: pro Con¬ 
troller 1 Doppellaufwerk oder auch 2 ein¬ 
zelne Fremdlaufwerke anschließbar; 
Datenübertragungsrate normalerweise 
maximal 8K/s: Bezugsquelle: Erphi-Elec- 
tronic; Preis für Doppellaufwerk (FSS- 
280-Subsystem) inkl. Controller ca. DM 
1700,-. Der Controller namens AFDC 
(= Autopatch Floppy Disk Controller) kann 
separat bezogen werden und auch zum 
Anschluß von 35- und 40-Spur-Laufwer- 
ken (z.B. Erphi Fl 22) verwendet werden. 
In diesem Beitrag befassen wir uns jedoch 
nur mit der Komplettlösung = Erphi-FSS- 
280-Subsystem + Controller, da die An¬ 
passung an von dritter Seite bezogene 
Laufwerke problematisch sein kann. 

Megaboard-Festplatte: Harddisk-Con¬ 
troller und Festplatte: wahlweise 10 oder 
20 Megabytes unformatiert: formatiert bei 
z.B. 10M = etwa 9608K netto (statt 
10240K brutto); lieferbar als interne Mega¬ 
core-Festplatte (Apple-Netzteil wird aus¬ 
getauscht) oder als externe MDB = Mobile 
Datenbox: Datenübertragungsrate norma¬ 
lerweise maximal 44K/s: Bezugsquelle: 


Frank & Britting: Preis für z.B. 10M-MDB 
inkl. Controller ca. DM 2700,- (für Mega¬ 
core ca. DM 1000,- mehr). Der Controller 
(Megaboard i.e.S.) kann auch separat be¬ 
zogen werden, doch ist hier noch mehr als 
beim Erphi-Controller vom Anschluß von 
Datenspeichern, die von dritter Seite er¬ 
worben wurden, abzuraten, da sonst nicht 
nur bei technisch Unkundigen Anpas¬ 
sungsprobleme entstehen können. Über 
den Hüthig Software Service ist deshalb 
eine preiswerte Megaboard-Komplettlö- 
sung einschließlich eines angepaßten 
Dateiverwaltungsprogramms erhältlich. 

2.1. Speicherkapazität 

Ein Disk-Il-Doppeliaufwerk mit 2 ■ 140K 
Speicherkapazität reicht für viele Aufga¬ 
ben völlig aus. Ein gutes Beispiel ist die 
Textverarbeitung; 

Selbst wenn Sie pro Monat 1 Buch schrei¬ 
ben würden, so würden Sie doch nicht 
mehr als 4 Disketten pro Buch benötigen. 
Und wer schreibt schon eine halbe Million 
Zeichen pro Monat? Dies wären nämlich 
mehr als 22.000 Zeichen = 22 D1N-A4- 
Seiten (anderthalbzeilig) pro Werktag. 
Vom „Diskjockey“ kann also hier keine 
Rede sein. Man beachte, daß wir hier be¬ 
wußt von einem Doppellaufwerk gespro- 


TurtleGraphics-Library-Paket 

von Dieter Geiß 

Turtle-Utilities für Fenstertechnik und Apple-Maus in einfa¬ 
cher und doppelter Hires-Grafik für Pascal 1.2 auf Apple 
lle/c mit Maus oder Joystick. 2 Disketten mit umfangrei¬ 
chem Manual, DM 98,-. Unter Pascal 1.1 mit 64K nur ein¬ 
geschränkt lauffähig 

Im einzelnen bietet das Paket folgende Möglichkeiten: 

- volle Kompatibilität mit der alten „TurtleGraphics“ 

~ alle zeitkritischen Funktionen in reinem Assembler programmiert 

- Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 

- für Apple llc und Apple Ile mit erweiterter 80-Zeichen-Karte Be¬ 
nutzung der doppelten Hires-Grafik mit 560 x 192 Punkten 
bzw. 16 neuen Farben möglich 

- schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 

- Benutzung mehrerer Zeichensätze gleichzeitig 

- Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 

- drei verschiedene Schriftarten: Fett-, Breit- und Proportional¬ 
schrift, beliebig mischbar (acht Möglichkeiten) 

- spezielle schnelle Ausgabe von Text 

- Cursor bei Eingabe frei programmierbar 

~ Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL- 
Werten im Grafikmodus 

- Menüzeile wie beim Macintosh 

- Pull-down-Menüs 

- Laden und Speichern von Fenstern (Windows) 

- Öffnen von Fenstern 

- Aktivieren und Deaktivieren von Fenstern 

- Verschieben und Vergrößern/Verkleinern von Fenstern 

- Scrolling von Fensterinhaiten in allen vier Richtungen 

- Umfangreiche Demos als Quelltexte. 

Hüthig Software Service • Postfach 102869 • 6900 Heideiberg 


DISK40 

Disketten-Organisationsprogramm für 
Apple II+, Ile oder llc 


von Hermann Seibold 
und Dipl.-Ing. Udo Marin, 
1986, Programmdiskette 
mit Anieitung, DM 48,- 

DISK40 entstand aus der 
Analyse bestehender Ko¬ 
pierprogramme und vereint 
in sich eine Vielzahl von 
Möglichkeiten, die sich als 
nützlich erwiesen haben. 
Durch eine einfach zu be¬ 
dienende Menüführung 
können DOS-3.3-Disketten 
umfangreich bearbeitet 
oder kopiert werden. 

Zu den vielfältigen Möglich¬ 
keiten des Programms zäh¬ 
len u. a.: 

- Tabellarische Ausgabe 
der Diskettenbelegung 

- Ordnen des Catalogs 

- „Undeiete“n von verse¬ 
hentlich gelöschten Dateien 

- Vergleichen von Disket¬ 
ten, Dateien oder der DOS- 
Spuren 


- Kopieren von Disketten, 
Dateien oder DOS-Spuren 

- Formatieren von Daten- 
Disketten 

- Erweitern auf 40 Spuren 
bei bestehenden 35-Spur- 
Disketten 

- Ändern des Boot-Pro¬ 
gramms 

- File-Editor zum Editieren 
von Disketten-Dateien 

- Komfortabler Sektor-Edi¬ 
tor für Hex- und ASCIl-Dar- 
stellung 

- VTOC-Editor, z. B. zur 
Freigabe der DOS-Spuren 

Schon nach wenigen Minu¬ 
ten können, dank der aus¬ 
führlichen Beschreibung, 
Disketten nach eigenen 
Wünschen modifiziert oder 
Daten nach einem Disk- 
Crash wieder gerettet wer¬ 
den. 


Hüthig Software Service • Postfach 102869 • Heideiberg 1 
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Chen haben, denn bei einem Einzellauf¬ 
werk ist die Datensicherung umständlich, 
zeitraubend und fehlerträchtig. 

Es gibt jedoch viele Aufgaben, die sich mit 
140K-Laufwerken nur begrenzt bewälti¬ 
gen lassen. Ein gutes Beispiel ist die 
Dateiverwaltung: 

Unterstellen wir einen Datensatz von 200 
Zeichen für die Summe aller Eingabefel¬ 
der, so passen auf eine 140K-Datendis- 
kette nur etwa 630 Datensätze. Wer grö¬ 
ßere Datenmengen zu verwalten hat, ist 
mit einer Festplatte oder einem größeren 
Diskettenlaufwerk erheblich besser be¬ 
dient. Beim Erphi-Subsystem (= 160- 
Spur-Doppellaufwerk = 2 • 640K) würden 
auf eine einzige 640K-Diskette etwa 3.000 
Datensätze passen, während eine 10-Me- 
gabyte-Festplatte etwa 50.000 Datensätze 
aufnehmen könnte. 

2.2. Übertragungsrate 

Neben der Speicherkapazität spielt die 
Datenübertragungsrate eine wichtige Rol¬ 
le. Wir beschränken uns hier aus Platz¬ 
gründen auf ProDOS: 

Bei den Disk-Il-Laufwerken beträgt die 
Übertragungsrate auf Blockebene für Le¬ 
sen und Schreiben jeweils ca. 8,2K/s. 
Beim Erphi-Subsystem muß man zwi¬ 
schen Lesen und Schreiben differenzie¬ 
ren. Auf Blockebene wird mit ca. 9,3K/s 
gelesen und mit ca. 6,8K/s geschrieben; 
Mittelwert ca. 7,9K/s. 

Bei der Megaboard-MDB-Festplatte be¬ 
trägt die Übertragungsrate unter ProDOS 
einheitlich ca. 42,7K/s für Blocklesen und 
Blockschreiben (bei DOS 3.3 übrigens mit 
43,75K/s größer, siehe Abschnitt 5). Zum 
Vergleich soll die amerikanische Festplatte 
namens „Sider“ eine Übertragungsrate 
von 15K/S haben (s. „Apple’s Sonder¬ 
heft“, 1986, letzte Seite). Für die Apple- 
Festplatte namens „Profile" soll angeblich 
eine Übertragungsrate von 19K/s gelten. 
Damit ist die MDB-Festpiatte gut 5mal 
schneller als ein Disk-Il- oder ein Erphi- 
Drive und gut 3mal schneller als die Sider 
bzw. gut 2mal schneller als die Profile. Die 
MDB-Festplatte ist damit etwa so schnell 
wie eine gute RAM-Disk, bei der mit 35- 
55K/S (sehr stark von den „Softswitches“ 
und dem „Mapping“ abhängig) gerechnet 
werden kann. 

Hinweis: Für die Zeittests wurde das Pro¬ 
gramm BAD.BLOCKS aus „Apple Pro- 
DOS für Aufsteiger“, Bd. 2, S. 177 ver¬ 
wendet. Es sei ferner darauf hingewiesen, 
daß entweder der Megaboard-Driver seit 
dem Megacore-Test im Peeker, Heft 7/85, 
S. 76-77, ganz beachtlich verbessert wur¬ 
de oder die mir z.Zt. ausgeliehene externe 
MDB schneller ist als die interne Mega¬ 
core. Eine erneute Durchführung der Text¬ 


file-Tests (Heft 7/85, S. 77) ergab für den 
WRITE.TEST 128s statt 255s und für den 
READ.TEST 47s statt 65s. 

Ein gutes Maß für das Gespann Mega¬ 
board- und Erphi-Controller mag auch das 
weiter unten beschriebene Backup-Pro¬ 
gramm PRODOS.BACKUP sein. Für die 
Datensicherung eines 3,5-Megabyte- 
MDB-ProDOS-Volumes mit Hilfe von 6 Er- 
phi-160-Spur-Disketten benötigt man in 
der Richtung 

(a) MDB ^ Erphi: 11 min 5s (665s) 

(b) Erphi ^ MDB: 8min, 40s (520s) 

Bei (a) wird von der MDB-Festplatte gele¬ 
sen und auf die Erphi-Disketten geschrie¬ 
ben, was sichtlich länger dauert als die 
umgekehrte Richtung. 

Insgesamt müssen 3,5M gelesen tynö ge¬ 
schrieben werden. Die Datenübertra¬ 
gungsrate bezieht sich somit auf 7M. Das 
ergibt 

(7M = 7.340.032 : 1024 = 7168K): 
7.168K : 665s = 10,8K/s 
7.168K : 520s = 13.8K/S 
14.336K : 1.185s = 12,1K/s 
Zum Vergleich sei hier erwähnt, daß sich 
mit dem ebenfalls weiter unten beschrie¬ 
benen Programm KOPY.160.SPUR in 
2min, 40s (= 160s) eine 160-Spur-Disket- 
te (= 640K • 2 = 1280K) auf dem Subsy¬ 
stem überspielen läßt. Dies sind 
1280K : 160s = 8K/s. 

Wozu sind nun diese Übertragungsraten 
gut? Wenn man ein Programm morgens 
einmal startet, spielt es keine Rolle, ob es 
z.B. in 2s (MDB-Festplatte) oder in 10s 
(Erphi-Subsystem, Faktor 5) im Speicher 
ist. Wenn jedoch etwa bei einem Dateiver¬ 
waltungsprogramm größere Datenbestän¬ 
de durchsucht werden müssen, können 
ganz ernorme Wartezeiten entstehen. 
Dann ist es eben nicht mehr gleichgültig, 
ob man 30s oder 150s auf die Mattscheibe 
starrt. Die Kluft kann jedoch bei dateiinten¬ 
siven Programmen noch erheblich größer 
werden, wenn nicht auf der bislang aus¬ 
schließlich betrachteten Blockebene auf 
Dateien zugegriffen wird. Bei ungünstigem 
Motor-an/aus-Timing (s. „RWTS mit War¬ 
teschleife“ in „Apple DOS 3.3“, S. 116) 
sackt nämlich die Übertragungsrate bei 
Disketten dramatisch ab. Dies ist bei einer 
Festplatte niemals der Fall, denn diese 
rotiert ständig. 

Technisches 

Es ist zwar bei der MDB wie auch bei 
anderen Festpiatten nicht irrelevant, auf 
welchen physikalischen Spuren sich die 
gewünschten Sektoren oder Blöcke befin¬ 
den, doch bewegt sich diese physikalische 
Zugriffszeit in einem Bereich, der bei un¬ 
serer Erörterung vernachlässigbar ist. Wie 
man beispielsweise dem Aufsatz „Aufbau 
und Funktion von Diskettensystemen “ 


von G.Berg (Peeker, Heft 3/85, S.10-21) 
entnehmen kann, wird die sog. Block- 
Übertragungsrate in KBit/s gemessen. 
Beim Erphi-Controller sind dies 
250 KBit/s ^ entspricht etwa 
250.000 Bits : 8 : 1024 = 30K/s 
und beim Megaboard-Controller 
5 MBit/s. ^ entspricht etwa 
5.000.000 Bits : 8 : 1024 = 600K/S. 

Diese physikalischen Werte sind indes 
völlig utopisch, weil ein 8-Bit-Prozessor 
derartige Übertragungsraten nicht mit¬ 
macht. Das denkbar schnellste Kopierpro¬ 
gramm für das Erphi-Subsystem, nämlich 
„Superquick“ von Arne Schäpers, bringt 
es auf eine praktische Übertragungsrate 
von ca. 14 bis 15K/s (ohne Verify). 

Faustregeln 

- Das Erphi-Subsystem ist dann vorzuzie¬ 
hen, wenn die Speicherkapazität den ge¬ 
stellten Anforderungen entspricht und ei¬ 
ne hohe Datenübertragungsrate nicht be¬ 
nötigt, also nicht ständig mit dateiintensi¬ 
ven Programmen gearbeitet wird. 

- Umgekehrt ist das Megaboard-Systerrj 
dann vorzuziehen, wenn eine noch größe¬ 
re Speicherkapazität erforderlich ist und/ 
oder eine hohe Datenübertragungsrate bei 
Dateiverwaltungsprogrammen benötigt 
wird. 

Diese Faustregeln heben auf den profes¬ 
sionellen Einsatz ab. Es sei nicht ver¬ 
schwiegen, daß ein (Hobby)-Programmie- 
rer, falls er sich eine MDB leisten kann, ein 
ganz neues „Programmier-Feeling“ er¬ 
lebt, denn alle vier Betriebssysteme (DOS 
3.3, ProDOS, CP/M und UCSD-Pascal) 
können direkt von der Festplatte gebootet 
werden, und die Assemblier- und Compi- 
lierzeiten werden geradezu dramatisch re¬ 
duziert. Auch das beim Programmieren 
häufig erforderlich Neubooten ist bei der 
MDB eine Angelegenheit von etwa 2-3s, 
wobei der Controller intelligent genug ist 
und automatisch das zuletzt verwendete 
Betriebssystem startet (und nicht wie beim 
Kaltstart DOS 3.3). 

3. Praxis-Tips 

Gegenüber den alten 35-Spur-Laufwer- 
ken muß der Umgang mit dem Erphi-Sub¬ 
system und der Megaboard-Festplatte erst 
erlernt werden. Abgesehen von der ein¬ 
malig und etwa eine Stunde dauernden 
Konfigurierung der Betriebssysteme, auf 
die wir hier aus Platzgründen nicht einge- 
hen, sind einige Spielregeln und auch Ein¬ 
schränkungen zu beachten. 

3.1. Slotabhängigkeit 

Wenn Sie einmal Pascal oder CP/M von 
z.B. Slot 5 gebootet haben sollten, so wer¬ 
den Sie der Meldung „Must boot from slot 
6“ begegnet sein. Nur die Betriebssyste- 
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me DOS 3.3 und ProDOS sind prinzipiell 
slotunabhängig. Das Erphi-Subsystem so¬ 
wie die Megaboard-Festplatte sind teils 
weniger und teils mehr slotabhängig. 

Der Megaboard-Controller kann allein 
theoretisch in jeden Slot (außer Slot 0 
beim IH- oder Slot 3 beim Ile) gesteckt 
werden. Normalerweise wird jedoch Slot 7 
empfohlen, von dem aus dann alle vier 
Betriebssysteme einschließlich CP/M und 
Pascal direkt von der Platte gebootet wer¬ 
den können. 

Der Erphi-Controller sollte allein normaler¬ 
weise in Slot 6 gesteckt werden, doch sind 
unter DOS 3.3 und ProDOS auch Slot 5 
und 4 zulässig. Allerdings funktioniert das 
mitgelieferte Kopierprogramm ECOPY 
beispielsweise nicht in Slot 5. 

Wenn Megaboard- und Erphi-Controller 
gleichzeitig benutzt werden sollen, so muß 
der Megaboard-Controller in Slot 7 und 
der Erphi-Controller in Slot 6 gesteckt 
werden. Andernfalls würde nach dem 
Booten der Festplatte von Slot 7 die zu¬ 
sätzlich für das Erphi-Subsystem gedach¬ 
te Betriebssystem-Modifikation nicht aus¬ 
geführt werden. Man darf also dann nicht 
mit PR+6 vom Erphi-Subsystem booten, 
sondern muß vielmehr stets mit PR#7 
(oder CtrI-Apfel-Reset) die Festplatte akti¬ 
vieren. 

3.2. Disketten und Kopierschutz 

Ein wesentlicher Vorzug der Disk-Il-Lauf- 
werke bestand darin, daß selbst bei billi¬ 
gen SS/SD-Disketten und selbst bei 
nachlässigem Umgang relativ selten Lese¬ 
fehler auftraten. Beim Erphi-Subsystem 
sollte man jedoch nicht nur DS/DD-Dis- 
ketten verwenden - z.B. die Scientific- 
Disketten von BASF, von denen wir 100 
Exemplare getestet haben, ohne daß ir¬ 
gendwelche Fehler aufgetreten wären -, 
sondern zudem mit den Disketten sorgfäl¬ 
tiger umgehen. Zudem ist das Mischen 
von 35- bzw. 40-Spur- sowie 160-Spur- 
Disketten grundsätzlich nicht möglich. Das 
nachfolgende Schaubild mag dies ver¬ 
deutlichen: 

Anfang einer 80-Spur-Diskettenseite 


0,265 0.265 0.265 0,265 Spurabstand 


1 1 

0 

1 -l"l- 

1 1 

1 2 

1 

3 Spur-Nr. 

'M' 

1 TT 

0.15 

0.15 0,15 

0,15 Spurbreite 

Anfang einer 40-Spur-Diskettenseite 

0.530 

1 

0.530 

1 

Spurabstand 

, 1 

1 

0 

1 

1 

Spur-Nr. 

1- 

- 



0,30 0.30 Spurbreite 


Die 80 konzentrischen Spuren einer Seite 
einer 160-Spur-Diskette haben einen Ab¬ 


stand (symbolisiert durch | ) von der vor¬ 
angehenden zur nächsten Spur, der etwa 
0,265m m beträgt (sog. Spurabstand ). 
Wenn 1 Zoll (= Inch) 2,54cm bzw. 
25,4mm entspricht, so würden 96 Spuren 
exakt 1 Zoll einnehmen (0,265 • 96 = 
25,4mm = 1 Zoll). Man spricht deshalb 
auch von 96 TPl (= Tracks per inch = 
Spuren pro Zoll). (Da die 160-Spur-Dis- 
kette jedoch pro Seite nur 80 Spuren hat, 
ist die Gesamtlesezone übrigens nur ca. 
2cm breit.) Demgegenüber ist der Spurab¬ 
stand bei einer 40-Spur-Diskette doppelt 
so groß, nämlich ca. 0,53mm, womit eine 
48-TPI-Diskette vorliegt (0,53 • 48 = 
25,4mm = 1 Zoll). 

Dem Diagramm kann man weiterhin ent¬ 
nehmen, daß die Spurbreite bei der einen 
Seite einer 160-Spur-Diskette (ca. 
0,15mm) nur die Hälfte der Spurbreite ei¬ 
ner 40-Spur-Diskette (ca. 0,30mm) ein¬ 
nimmt. Der Lese/Schreibkopf eines 160- 
Spur-Laufwerks muß also halb so breit 
sein wie der Kopf eines 40-Spur-Drives. 
Aus der Abbildung ist weiterhin ersichtlich, 
daß die Spuren 0,1,2 usw. einer 40-Spur- 
Diskette, wenn man die Spurbreite igno¬ 
riert, dieselben Positionen einnehmen wie 
die Spuren 0, 2, 4 usw. der einen Seite 
einer 160-Spur-Diskette, und zwar der 
Seite 0, die sich unten bzw. auf der Nicht- 
Etikettseite befindet. Die Etikettseite selbst 
heißt Seite 1. 

Daraus erhellt nunmehr im einzelnen; 

- Eine auf dem Erphi-Subsystem mit 
PR#6 (= 160-Spur-Modus) gebootete 
35-Spur-Diskette, die auf einem Disk-Il- 
Laufwerk formatiert wurde, läßt sich nicht 
lesen, geschweige denn beschreiben, weil 
die Spuren verwechselt werden. Statt der 
Spur 1 liest der Controller von der Mitte 
zwischen Spur 0 und 1, und dort ist 
„nichts“. 

- Eine auf dem Erphi-Subsystem mit IN#6 
(= 35- bzw. 40-Spur-Moclus) gebootete 
35-Spur-Diskette, die auf einem Disk-Il- 
Laufwerk formatiert wurde, läßt sich lesen, 
doch darf diese Diskette nicht vom Subsy¬ 
stem beschrieben werden, weil dann zu 
schmale Spuren entstehen würden, die 
dann wiederum vom dem Disk-ll-System 
nicht mehr gelesen werden könnten, weil 
dessen breiterer Lesekopf dann neben der 
schmalen Spur noch die „Reste" der ur¬ 
sprünglichen breiteren Spur lesen würde, 
und dies führt unweiterlich zu einem 1/0- 
Error. 

- Nach dem Booten einer 35-Spur-Disket- 
te auf dem Erphi-Subsystem mit IN#6 läßt 
sich auf dem Subsystem eine andere 
(Leer)diskette formatieren und danach im 
35- bzw. 40-Spur-Modus vom Subsystem 
lesen und beschreiben. Doch kann diese 
Diskette dann trotzdem nicht mehr von 


einem Disk-Il-Drive gelesen werden, ob¬ 
wohl man eigentlich annehmen müßte, 
daß ein breiter Lesekopf auch eine schma¬ 
le Spur lesen kann. 

Faustregeln 

1. Das Lesen von einer 35-Spur-Diskette 
ist mit dem Erphi-Subsystem grundsätz¬ 
lich möglich, wenn mit 1N#6, d.h. im 40- 
Spur-Emulationsmodus, gebootet wird. 
Deshalb können auch die meisten kopier¬ 
geschützten Disketten vom Subsystem 
gestartet werden. Programmdisketten, die 
jedoch als Bestandteil des Kopierschutzes 
auf die Diskette zurückschreiben, dürften 
sich folgerichtig insofern selbst zerstören, 
als sie sich später von einem Disk-il-Drive 
nicht mehr selbst lesen können. 

2. Wenn man für jedermann lesbare 35- 
Spur-Disketten herstellen will, so muß 
man diese auf einem 35-Spur-Laufwerk 
duplizieren. Obwohl beispielsweise unser 
Sammeldisketten-Kopierer zusätzlich ein 
Erphi-Subsystem besitzt, könnte er es aus 
diesem Grund niemals zur Herstellung der 
Sammeldisketten benutzen. 

Während beim Erphi-Subsystem kopier¬ 
geschützte Programme nur mit den er¬ 
wähnten Einschränkungen benutzt wer¬ 
den können, ist bei der Megaboard-Fest¬ 
platte die Verwendung solcher Program¬ 
me in der Regel nicht möglich, denn der im 
„Ressort Paranoia“ behandelte Verfol¬ 
gungswahn namens Kopierschutz findet 
immer Mittel und Wege, um ein sinnvolles 
Diskettensystem außer Kraft zu setzen. 
Beispielsweise ist der DOS-3.3-Applewri- 
ter kopiergeschützt und läuft deshalb nicht 
auf Festplatten, doch kann man, was nicht 
in der Anleitung steht, beim Programm¬ 
start auf die „C"-Taste drücken, worauf 
(auch beim deutschen Applewriter) am 
Bildschirm die englischen Meldung „Do 
you have Corvus y/n“ erscheint. Tippt 
man nun „y“, so stürzt der Applewriter 
auch dann ab, wenn man eine Corvus- 
Festplatte besitzt, wie mir zwei Corvus- 
Besitzer bestätigt haben. Hier hat sich 
wohl ein paranoides Gemüt gedacht: „De¬ 
nen werde ich jetzt mal zeigen, was mein 
Kopierschutz alles kann!“ Fazit: Benutze 
niemals kopiergeschützte Programme, 
wenn du nicht selbst paranoid werden 
willst! 

3.3. Patch-Kompatibilität 

Abgesehen von der slotmäßigen Ein¬ 
schränkung, dem Erfordernis eines pflegli¬ 
chen Umgangs mit 160-Spur-Disketten, 
der nur bedingten Benutzbarkeit von 35- 
Spur-Disketten auf dem 160-Spur-Subsy- 
stem sowie dem Kopierschutzproblem ist 
auch auf das Auto-Patch-Verfahren einzu¬ 
gehen. Erfreulicherweise muß man hier 
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konstatieren, daß sich erstens die Patches 
auf ein absolutes Minimum beschränken 
und daß zweitens Erphi-Subsystem und 
Megaboard-Festplatte fast reibungslos 
miteinander kommunizieren. Ein kleiner 
Wermutstropfen ist nämlich die CP/M-Ver- 
sion 2.26 von Microsoft, die zwar jetzt 
auch auf dem Erphi-Subsystem funktio¬ 
niert, nicht jedoch auf der MDB- oder Me¬ 
gacore-Festplatte, die bislang nur CP/M 
2.2 unterstützt. Im einzelnen können fol¬ 
gende Betriebssysteme gefahren werden: 

- DOS 3.3, Diversi-DOS 2C und 4C 

- Pascal 1.1, 1.2 (auch 128K-Version) 
-ProDOS 1.0.1, 1.0.2, 1.1.1 

- CP/M 2.2 sowie zusätzlich bei Erphi 
2.20B, 2.23 und 2.26 

Ein Leser schrieb anläßlich des Beitrages 
„ Ein intelligenter Harddisk-Controller“ 
(Peeker, Heft 4/86, S. 20ff.), daß er Anga¬ 
ben darüber vermisse, ob beispielsweise 
der TASC-Compiler auf der Megaboard- 
Festplatte funktioniere. Dies kann man be¬ 
jahen, denn der Megaboard-Patch be¬ 
schränkt sich bei DOS 3.3 auf 3 Bytes bei 
$BD00. Durch den Erphi-Controller wer¬ 
den jedoch noch weitergehende Patches 
vorgenommen, wodurch das Doppellauf¬ 
werk in vier virtuelle Drives Dl, D2, D3 
und D4 eingeteilt wird, von denen ein An¬ 
wenderprogramm in der Regel nichts 
weiß. 

4. KOPY.160.SPUR 

Wenn man sich zum Kauf eines Massen¬ 
speichers entschließt, so muß man sich 
auch Gedanken über die Datensicherung 
machen. Bei dem Erphi-Doppellaufwerk 
ist das Duplizieren von Disketten ebenso 
unkompliziert wie bei den Disk-Il-Drives, 
doch dauert das Kopieren einer 640K-Dis- 
kette natürlich erheblich länger als bei ei¬ 
ner 140K-Diskette. Das von Erphi Electro¬ 
nic mitgelieferte sog. ECOPY ist leider al¬ 
les andere als schnell und formatiert Im 
übrigen nicht das Duplikat, so daß die For¬ 
matierung gesondert vorgenommen wer¬ 
den muß. Das weiter unten gelistete Pro¬ 
gramm KOPY.160.SPUR formatiert zwar 
ebenfalls nicht, ist jedoch bereits spürbar 
schneller als ECOPY. Am schnellsten ist 
jedoch das Programm SUPERQUICK des 
Hüthig Software Service, zumal es zusätz¬ 
lich formatiert und außerdem noch einen 
Verify beinhaltet. Für eine 160-Spur-Dis- 
kette ergeben sich bei den drei Program¬ 
men folgende Kopierzeiten: 

ECOPY: 3min, 25s, ohne Format 
KOPY.160.SPUR: 2min, 40s, ohne Format 
SUPERQUICK: Imin, 53s, mit Format 

Da KOPY.160.SPUR dem Programm 
PRODOS.BACKUP weitgehend ähnlich 
ist, beschränken wir uns hier auf die Hand¬ 
habung: 


^ pRodos ^ 


1 In dem Applesoft-Programm KOPY. 
160.SPUR können Sie in der Zeile llOdie 
Konstanten DU = Originalslot und HU = 
Duplikatslot ändern. Die Voreinstellung 
110 DU = 6: HU = 6 

besagt, daß von Slot 6, Drive 1 nach Slot 
6, Drive 2 kopiert wird. Wenn Sie Ihr Erphi- 
Subsystem beispielsweise in Slot 5 instal¬ 
liert hätten, so mußte es lauten: 

110 DU = 5: HU = 5 
Wenn Sie zusätzlich die Drives ändern 
möchten, was allerdings nur erforderlich 
wäre, wenn Sie über 2 Subsysteme verfü¬ 
gen würden, so können Sie die Zeilen 170 
und 180 modifizieren. 

2 Das Assemblerprogramm KOPY. 
160,SPUR.O ändert die ProDOS-System- 
Bitmap in der Form, die aus.dem Listing 
von PRO.BACKUP.O, Zellen 92-100, er¬ 
sichtlich ist, und benutzt damit den Spei¬ 
cherbereich $0A00-$BE00 als Kopier¬ 
puffer. 

(a) Starten Sie also unter ProDOS das 
Programm mit 

RUN KOPY.160.SPUR 

(b) Legen Sie in Drive 1 das Original und in 
Drive 2 das spätere Duplikat und beginnen 
Sie den Kopiervorgang nach „W = 
Weiter“. 

(c) Falls weitere Kopien erforderlich sind, 
so können Sie am Ende der Kopie auto¬ 
matisch zu Schritt (b) zurück. 

(d) Wenn Sie das Programm verlassen 
haben, so müssen Sie mit z.B. 

PR#6 

neu booten, weil der Kopierpuffer das BA¬ 
SIC.SYSTEM zerstört hat. 

Auch wenn KOPY.160.SPUR unter Pro- 
DOS gestartet wird, können trotzdem auch 
Disketten der anderen Betriebssysteme 
(DOS 3.3, Pascal, CP/M) dupliziert wer¬ 
den, die jedoch in jedem Fall bereits vor¬ 
formatiert sein müssen. 

Übrigens kann KOPY.160.SPUR auch bei 
35-, 40- und 80-Spur-Drives verwendet 
werden. In diesem Fall muß man in der 
Zeile 

120 DB = 1280: HB = 1280 
die entsprechende Disketten-Blockge- 
samtanzahl bei beiden Variablen einset- 
zen. Für 35-Spur-Disketten würde gelten: 
120 DB 280: HB = 280 

5. PRODOS.BACKUP 

5.1. Geschwindigkeitsvergleiche 

Im Peeker, Heft 5/86, haben wir bereits 
ein DOS-3.3-Backup-Programm namens 
MDB.KOPY für 140K-DOS-Volumes der 
„mobilen Datenbox“ vorgestellt, das mit 
einer Datenübertragungsrate von ziemlich 
genau 12,44K/s dem nachfolgenden Pro- 
DOS-Backup-Programm namens PRO¬ 
DOS.BACKUP für den MDB-FSS-280- 


Datentransfer mit 12,10K/s geringfügig 
überlegen ist. Trotzdem sind 12,1 K/s - 
gewichtet aus ca. 42,7K/s für die Festplat¬ 
te und ca. 8K/s für die Floppy - für einen 
6502-Rechner ein ungewöhnlich hoher 
Wert. Denn für z.B. 3,5 Megabytes oder 
konkreter 3.666.944 Bytes benötigt man 
nämlich nur 9min bis 11min für die 
Datensicherung. Damit sind das DOS-3.3- 
und ProDOS-Backup-Problem bei der 
„mobilen Datenbox“ gelöst. 

Interessieren Sie die Gründe für das ge¬ 
ringfügig schlechtere Abschneiden von 
ProDOS gegenüber DOS 3.3? 

1. Bei PRODOS.BACKUP enthalten die im 
obigen Abschnitt „2.2. Übertragungsrate“ 
genannten Zelten, z.B. 8min, 40s für 3,5 
Megabytes in Richtung vom Erphi-Subsy¬ 
stem zur Megaboard-MDB, bereits die für 
das Wechseln der 6 erforderlichen Disket¬ 
ten benötigten Sekunden. 

2. Wie oben ebenfalls bereits erwähnt. Ist 
bei einer Erphi-160-Spur-Diskette der Le¬ 
sevorgang erheblich zügiger als der 
Schreibvorgang. Diese Unterschiede gel¬ 
ten bei Disk-Il-Laufwerken nicht. 

3. Auf der MDB-Festplatte werden bei der 
Konfigurierung zuerst die DOS-3.3-, dann 
die UCSD- und CP/M- und erst zum 
Schluß die ProDOS-Harddisk-Spuren for¬ 
matiert. Möglicherweise ist deshalb die 
Übertragungsrate unter DOS 3.3 (43,7K/ 
s) größer als unter ProDOS (42,7K/s). 
Vielleicht ist aber auch der ProDOS-Driver 
auf dem Controller weniger intelligent als 
der DOS-3.3-Driver geschrieben, denn 
wie mir selbst von eigenen RAM-Disk- 
Drivern bekannt ist, können einige unnöti¬ 
ge 6502-Befehle bereits 1 K/s ausmachen. 

5.2. Das Pufferproblem 

Während das Backup-Programm 
MDB.KOPY aus dem letzten Peeker im 
Prinzip ein modifiziertes und getuntes 
140K-Kopierprogramm darstellt, muß man 
bei einem flexiblen ProDOS-Datensiche- 
rungsprogramm von variablen Speicher¬ 
größen und Puffern ausgehen. Im einzel¬ 
nen muß man unterscheiden: 

- Größe der Harddisk 

- Größe der Floppy-Disks 

- Größe des RAM-Puffers 

Der Inhalt einer Harddisk entspricht in der 
Regel dem Inhalt mehrerer Floppy-Disks. 
Doch wird die letzte der Backup-Floppies 
meist nicht komplett gefüllt sein. Folglich 
muß man zwischen einer oder mehreren 
Komplettdisks sowie ggf. einer Restdisk 
unterscheiden. Nehmen wir fernerhin an, 
daß die Datenübertragung aus Gründen 
der Geschwindigkeit über einen größeren 
RAM-Puffer erfolgt. Dann muß für die 
Komplettdisks der RAM-Puffer mehrmals 
ganz sowie zum Schluß ggf. teils gefüllt 
werden. Für die Restdisk gilt das gleiche. 
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Abb. 1 

wobei man jedoch zwischen dem Kom- 
plettdisk-Restpuffer und dem Restdisk- 
Restpuffer unterscheiden muß. Betrachten 
wir hierzu die Abb. 1 und rechnen wir ein 
kleines Beispiel durch: 

1 Der RAM-Puffer des Programms PRO¬ 
DOS.BACKUP kann theoretisch den Be¬ 
reich $0A00-$BE00 einnehmen, doch ie- 
gen wir hier aufgrund einer als weitgehend 
optimal ermittelte Größe den RAM-Puffer 
auf $1000-$9000 = 32K = 128 Pages = 
64 Blöcke fest. 

2 Auf der Megaboard-Festplatte dürften 
regelmäßig mehrere Megabytes für Pro- 
DOS reserviert sein, wobei wir für unser 
Rechenbeispiel 3,5M = 7168 Blöcke (0- 
7167) annehmen. Block 0 der Harddisk 
wird aus dem nachstehend genannten 
Grund niemals kopiert, so daß sich 7168-1 
= 7167 Blöcke ergeben. 

3 Auf eine 160-Spur-Diskette des Erphi- 
Subsystems passen 0,625M = 1280 Blök- 
ke (0-1279). Für die spätere Identifikation 
der Backup-Disketten reservieren wird je¬ 
doch jeweils den Block 0, der das Backup- 
Datum und die Disk-Nummer enthalten 
wird. Damit ergeben sich 1280-1 = 1279 
Blöcke. Es gibt hierbei noch einen Trick: 
Wenn wir bei der ersten Backup-Floppy 
mit Block 1 und ebenso bei der Harddisk 
mit Block 1 beginnen, so stimmt die Rei¬ 
henfolge der Blöcke 1-1279 auf der Back¬ 
up-Disk mit der der Harddisk überein, so 
daß wir anhand eines CATALOGs der er¬ 
sten Backup-Disk später leicht identifizie¬ 
ren, was beim letzten Backup dupliziert 
wurde. 

4 Nun teilen wir die Harddisk-Blockanzahl 
durch die Blockanzahl einer Komplettdisk. 
Das ergibt 7167 : 1279 = 5 Komplettdisks 
(5 • 1279 = 6395 Blöcke) -h 1 Restdisk mit 
772 Blöcken; 6395 -k 772 = 7167 Hard¬ 
disk-Blöcke. 

5 Jetzt ermitteln wir für die 5 Komplett¬ 
disks (mit jeweils 1279 Blöcken) die An¬ 
zahl der Komplettdisk-Hauptschübe mit 


vollem RAM-Puffer ($1000-$9000 = 64 
Blöcke) sowie das Pufferende beim Kom¬ 
plettdisk-Restschub, der ggf. den RAM- 
Puffer nicht voll ausnutzt. Das ergibt 1279 
: 64 = 19 Komplettdisk-Hauptschübe (19 • 
64 = 1216 Blöcke) sowie 1 Komplettdisk- 
Restschub ($1000-$8E00) mit 63 Blök- 
ken; 1216 -F 63 = 1279 Blöcke pro Kom¬ 
plettdisk. 

6 Schließlich ermitteln wir für die Restdisk 
(mit 772 Blöcken) die Restdisk-Haupt- 
schübe mit vollem RAM-Puffer sowie den 
Restdisk-Restschub mit ggf. partiell gefüll¬ 
tem RAM-Puffer. Das ergibt 772 : 64 = 12 
Restdisk-Hauptschübe (12 • 16 = 768) 
und 1 Restdisk-Restschub ($1000-$1800) 
mit 4 Blöcken: 768 -I- 4 = 772 Blöcke für 
die Restdisk. 

5.3. Praktische Handhabung 

1 Formatieren Sie zunächst eine Anzahl 
von Backup-Disketten und beschriften Sie 
die Labels mit den fortlaufenden Nummern 
1,2, 3 usw. sowie mit dem Backup-Datum 
in der Form TT.MM.JJ. 

2 Wenn sich das Erphi-Subsystem in Slot 
6 und die Megaboard-Harddisk in Slot 7 
befinden, so booten Sie zunächst ProDOS 
und starten Sie dann mit 

RUN PRODOS.BACKUP 
das Applesoft-Programm von einer 160- 
Spur-ProDOS-Diskette. Bei einer anderen 
Slot-Belegung ändern Sie bitte vorher die 
Programmzeilen 

120 DU = 6: REM Disk-Unit, S6, Dl 
130 HU = 7: REM Hard-Unit, S7, D1 

3 Das Applesoft-Programm ermittelt nun 
die Floppy-Disk-Anzahl usw. und verlangt 
dann eine Backup-Richtungsangabe: 

(1) Megaboard -> Erphi 
(0) Erphi ^ Megaboard 

4 Für die Richtung Mega-^Erphi wird das 
heutige Datum, für die Richtung Erphi- 
-»Mega das damalige Datum angefordert. 
Beschriften Sie die Backup-Disketten im¬ 
mer klar und deutlich, sonst werden Sie 


weder an diesem noch an anderen Back¬ 
up-Programmen Freude haben! 

5 Nach einer letzten, warnenden 
Bildschirmübersicht wird automatisch das 
Assemblerprogramm BACKUP.PRODOS. 
O geladen, das Sie dann jeweils auffor¬ 
dert, die Diskette Nr. X einzulegen. Bei der 
Datensicherung in Richtung Mega-^Erphi 
erfolgt keine Prüfung, wohl aber in Rich¬ 
tung Erphi-^Mega, wobei nur Disketten 
mit richtiger Nummer und richtigem Datum 
akzeptiert werden, so daß Verwechslun¬ 
gen ausgeschlossen sind. 

Fortgeschrittene Programmierer können 
bei anderen Floppy-Disk-Laufwerken un¬ 
terschiedliche Puffergrößen ausprobieren. 
Für das Erphi-Subsystem ergaben sich 
folgende Kopierzeiten in Richtung Mega- 
Erphi: 

$0A00-$BE00 = 11min, 45s (Bitmap!) 
$0A00-$9A00 = 11 min, 25s 
$1000-$9000 = 11min, 5s 
Ein nicht allzu großer RAM-Puffer führte 
also zu den besten Übertragungsraten. 

Kurzhinweise 

1. Zweck: 

(a) ProDOS-Backup-Programm PRODOS. 
BACKUP zur Datensicherung von Mega- 
board-Harddisk-Volumes; modifiziert auch 
bei anderen Festplatten verwendbar. 

(b) ProDOS-Kopierprogramm KOPY. 
160.SPUR für Erphi-160-Spurlaufwerke: 
modifiziert auch bei kleineren Laufwerken 
verwendbar. 

2. Konfiguration: 

(a) Apple ll-k/e mit ProDOS und mit Mega- 
board-Festplatte in Slot 7 (MDB oder Me¬ 
gacore) und Erphi-160-Spur-Subsystem 
in Slot 6; bei anderer Slotbelegung PRO- 
DOS.BACKUP modifizieren. 

(b) Apple ll-k/e mit ProDOS und mit Erphi- 
160-Spur-Subsystem in Slot 6. 

3. Test: 

(a) RUN PRODOS.BACKUP 
Formatierte Disketten bereitlegen und zu 
Testzwecken die Richtung Mega-^Erphi 
wählen. 

(b) RUN KOPY.160.SPUR 
Formatierte Duplikatdiskette bereitlegen. 

4. Sammeldisk: 

(a) ProDOS-Backup-Programm: 
PRODOS.BACKUP (Applesoft) 
T.PRO.BACKUP.O (Big-Mac-Ouelltext) 
PRO.BACKUP.0 (Maschinenprogramm) 

(b) 160-Spur-Kopterprogramm: 
KOPY.160.SPUR (Applesoft) 
T.KOPY.160.SPUR.O (Big-Mac-Quelitext) 
KOPY.160.SPUR.O (Maschinenpro¬ 
gramm) 

5. Sonstiges: 

Die Programme müssen zunächst von der 
DOS-3.3-Sammeldisk mit DOSTOPRO 
oder CONVERT auf Ihre ProDOS-Arbeits- 
diskette konvertiert werden. 
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pRodos ^ 


PRODOS.BACKUP 

120 DU = 6: REM DISK-UNIT,S6,Dl 
130 HU = 7: REM HARD-UNIT,S7,Dl 
150 PA = 04096: REM PUF-ANF:$1000 
160 PE = 36864: REM PUF-END:$9000 

170 PL = PE - PA: IF PL / 512 < > INT (PL / 512) THEN PRINT 
"NUR GANZE BLOCKANZAHL!": END 

180 IF PEEK (49002) < > 0 AND PEEK (49003) < > 63 THEN PRINT 
"ZU WENIG SPEICHER!": END 
190 P = 768; REM PAGE-3-PARAMETER 
200 POKE P,DU * 16+0: REM +128-FUER-D2 
210 POKE P + 1,HU * 16+0: REM +128-FUER-D2 
220 PRINT CHR$ (21): TEXT : HOME : PRINT : INVERSE : 

HTAB 10; PRINT "** PRODOS.BACKUP 

HTAB 10: PRINT VON U. STIEHL **": NORMAL : 

PRINT CHR$ (4);"PREFIX": INPUT SP$: REM START-PREFIX 
230 PRINT CHR$ (4);"PREFIX,S";DU;".Dl": PRINT CHR$ (4);"PREFIX": 

INPUT P$: PRINT CHR$ (4);"BLOAD";P$;",TDIR,A$2000,L$100" 

240 DB = PEEK (8233) + PEEK (8234) # 256:DB = DB - 1: 

POKE P + 3, INT (DB / 256): POKE P + 2,DB - 
PEEK (P + 3) * 256: REM $2029;DISK-BLOCKANZAHL-1 
250 PRINT CHR$ (4);"PREFIX,S";HU;",Dl": PRINT CHR$ (4);"PREFIX": 

INPUT P$: PRINT CHR$ (4);"BLOAD";P$;",TDIR,A$2000,L$100" 

260 HB = PEEK (8233) + PEEK (8234) * 256:HB = HB - 1: 

POKE P + 5, INT (HB / 256): POKE P + 4,HB - 
PEEK (P + 5) * 256; REM $2029:HARD-BLOCKANZAHL 
270 IF HB < 280 OR DB < 280 OR HB < = DB THEN HOME : 

PRINT "HARD-BLOCKS <= DISK-BLOCKS?": END 
280 KD = INT (HB / DB): POKE P + 6,KD:RD = 0; POKE P + 7,RD: 

POKE P + 8,0: POKE P + 9,0: REM KOMPLETTDISKS 
290 IF HB / DB > KD THEN RD = 1: POKE P + 7,RD: 

RB = HB - KD * DB: POKE P + 9, INT (RB / 256): 

POKE P + 8,RB - PEEK (P + 9) * 256: REM RESTDISK 
300 POKE P + 10,PA / 256: POKE P + 11,PE / 256:PB = PL / 512: 

REM ANFANG-ENDE-LAENGE 

310 IF DB < = PB THEN HOME : PRINT "DISK-DRIVE <= PUFFER?"; END 

320 HS = INT (DB / PB): POKE P + 12,HS: POKE P + 13,0: 

POKE P + 14,0: REM KOMPLETTDISK-HAUPTSCHUEBE 
330 IF DB / PB > HS THEN RS = (DB - HS # PB) # 2: POKE P + 13,1: 

POKE P + 14,RS + PEEK (P + 10): REM KOMPLETTDISK-RESTSCHUB 
340 POKE P + 15,0: POKE P + 16,0: POKE P + 17,0: IF RD = 0 
THEN 380: REM KEINE-RESTDISK1 

350 IF RB < PB THEN POKE P + 16.1:RS = RB * 2: POKE P + 17, 

RS + PEEK (P + 10): GOTO 380: REM RESTSCHUB-OHNE-HAUPTSCHUB^ 

360 HS = INT (RB / PB): POKE P + 15,HS: 

REM RESTDISK-HAUPTSCHUEBE 

370 IF RB / PB > HS THEN RS = (RB - HS * PB) # 2: POKE P + 16,1: 

POKE P + 17,RS + PEEK (P + 10): REM RESTDISK-RESTSCHUB 

380 HTAB 11; PRINT "1. MEGA -> ERPHI": PRINT : 

HTAB 11: PRINT "0. ERPHI -> MEGA": PRINT ; PRINT : HTAB 11 

390 GET R$: ON R$ < > "1" AND R$ < > "0" GOTO 390: 

POKE P + 18, ASC (R$) - 48: REM RICHTUNG-FLAG 
400 IF R$ = "1" THEN VTAB 14: HTAB 10: CALL - 958: 

PRINT "NEUES DATUM TT.MM.JJ" 

410 IF R$ = "0" THEN VTAB 14: HTAB 10: CALL - 958: 

PRINT "ALTES DATUM TT.MM.JJ" 

420 HTAB 10: INPUT "->";D$: IF LEN (D$) < > 8 OR 

MID$ (D$,3,l) < > "." OR MID$ (D$,6,l) < > " J’ THEN 400 

430 FOR X = 1 TO 8: POKE P + 18 + X, ASC ( MID$ (D$,X,1)): NEXT 

440 HOME : PRINT KD + RD;" FORMATIERTE DISKETTEN - ETIKETTIERT": 
PRINT : PRINT "#1-";D$;", +2-";D$;", t3-";D$: PRINT : 

PRINT "USW. BEREITLEGEN UND GENAU": PRINT : 

PRINT "IN DERJENIGEN REIHENFOLGE EINLEGEN,": PRINT : 

PRINT "WIE SIE AM BILDSCHIRM ANGEWIESEN WERDEN" 

450 PRINT ; IF R$ = "1" THEN PRINT "RICHTUNG MEGA -> ERPHI" 

460 IF R$ = "0" THEN PRINT "RICHTUNG ERPHI -> MEGA" 

470 PRINT : PRINT "OKAY J/N ";: GET X$: ON X$ < > "J" AND 

X$ < > "N" GOTO 440: IF X$ = "N" THEN PRINT : 

PRINT CHR$ (4);"PREFIX";SP$: END 
480 PRINT : PRINT CHR$ (4);"PREFIX";SP$: 

PRINT CHR$ (4) ;"VERIFy";SP$;"PRO,BACKUP,0": 

PRINT CHR$ (4);"BRUN PRO.BACKUP,0": END 


PRO.BACKUP.O 


BSAVE PRO.BACKUP.O, A2051, L509 

1 ORG $0803 

2 * 

3 * PRO.BACKUP.O 

4 • 

5 ¥ 

6 * Backup-Programm zwischen 

7 * Megaboard-Festplatte und 

8 ¥ Erphi-160“Spur-Subsystem 

9 ¥ U.Stiehl/Mai/1986 

10 * 


11 

RESVKT 

EQU 

$03F2 

;Vektor 

12 

MLI 

EQU 

$BF00 

;ProDOS 

13 

SETVID 

EQU 

$FD93 

:Video 


0803: A0 02 
0805: B9 F2 03 


14 

SETKBD 

EQU 

$FE89 


;Keyboard 

15 

HOME 

EQU 

$FC58 


;Cls 

16 

COUT 

EQU 

$FDED 


;Print 

17 

CROUT 

EQU 

$FD8E 


;Return 

18 

TABV 

EQU 

$FB5B 


; Vtab 

19 

PRBYTE 

EQU 

$FDDA 


;Hexout 

20 

BELLIA 

EQU 

$FBDD 


;Piepston 

21 

RDKEY 

EQU 

$FD0C 


;Taste 

22 

SCRTCH 

EQU 

$D64B 


;New 

23 

OUTSP 

EQU 

$DB57 


;Space 

24 

OUTDO 

EQU 

$DB5C 


;ORA-Cout 

25 

BASIC 

EQU 

$E003 


;Basic 

26 

LINPRT 

EQU 

$ED24 


;Dezout 

27 

¥ 





28 

DISKUNIT 

EQU 

$0300 


;DU+00 

29 

HARDUNIT 

EQU 

$0301 


;HU+00 

30 

¥ 





31 

¥ Nicht 1 

benutzt: 



32 

DISKBLKL 

EQU 

$0302 


DB-low 

33 

DISKBLKH 

EQU 

$0303 


DB-high 

34 

HARDBLKL EQU 

$0304 


HB-low 

35 

HARDBLKH 

EQU 

$0305 


HB-high 

36 

¥ 





37 

¥ Komplettdisks KD + 

Restdisk RD 

38 

¥ 





39 

KOMPDISK 

EQU 

$0306 


;KD>=1 

40 

RESTDISK 

EQU 

$0307 


;RD>=0 

41 

¥ 





42 

¥ Nicht benutzt: 



43 

RESTBLKL 

EQU 

$0308 


;RB-low 

44 

RESTBLKH 

EQU 

$0309 


:RB-high 

45 

¥ 





46 

¥ Pufferanfang PA + 

Pufferende PE 

47 

* . 





48 

PUFANF 

EQU 

$030A 

;PA=1000 

49 

PUFEND 

EQU 

$030B 


;PE=9000 

50 

¥ 




- 

51 

¥ KD-Hauptschübe + KD-Restschub 

52 

¥ 





53 

KDHS 

EQU 

$030C 


HS>=1 

54 

KDRS 

EQU 

$030D 


RS>=0 

55 

KDRSPE 

EQU 

$030E 


P-Ende 

56 

¥ 





57 

¥ RD-Hauptschübe + RD-Restschub 

58 

* 





59 

RDHS 

EQU 

$030F 


HS>=0 

60 

RDRS 

EQU 

$0310 


RS>=0 

61 

RDRSPE 

EQU 

$0311 


P-Ende 

62 

¥ 





63 

¥ 1: Mega->Erphi 0: 

Erphi->Mega 

64 

¥ 





65 

RICHTUNG 

EQU 

$0312 

;l/0 

66 

¥ 





67 

¥ Datum + Nr. 

zur Idenfitikation 

68 

¥ 





69 

DATUM 

EQU 

$0313 


-$031A 

70 

DISKNR 

EQU 

$031B 


>=0 

71 

¥ 





72 

RESET 

EQU 

$031C 


-$031E 

73 

¥ 





74 

¥ Temporäre Zähler 



75 

¥ 





76 

KDTEMP 

EQU 

$00FA 

;Kompl- 

77 

KDHSTEMP 

EQU 

$00FB 

:Haupt. 

78 

RDHSTEMP 

EQU 

$00FC 

;Rest. 

79 

PETEMP 

EQU 

$00FD 

:P-Ende 

80 

IND 

EQU 

$00CE 


indirekt 


81 ¥ 

82 ¥ Puffer-Verteilung 

83 > -- 

84 ¥ 

85 ¥ Optimal 32K-Puffer; $1000-$9000 

86 ¥ d.h. $8000-Puf.: 4096-36864 

87 ¥ Möglich 36K-Puffer: $0A00-$9A00 

88 ¥ d.h. $9000-Puf.: 2560-39424 

89 ¥ Maximal 45K~Puffer: $0A00-$BE00 

90 ¥ d.h. $BE00-Puf.: 2560-48640 

91 ¥ 

92 ¥ Im Maximalfall Bitmap ändern 

93 ¥ 

94 ¥ LDA #$00 

95 ¥ STA $BF6B ;Bitmap 

96 ¥ STA $BF6C 

97 ¥ STA $BF6D 

98 ¥ STA $BF6E 

99 ¥ LDA #%00000011 

100 ¥ STA $BF6F 

101 ¥ 

102 ¥ Reset-Vektor setzen 

103 ¥ 

104 LDY #2 

105 INITl LDA RESVKT,Y 
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I 


0808: 

99 IC 03 

106 


STA 

RESET,Y 

080B: 

88 

107 


DEY 


080C: 

10 F7 

108 


BPL 

INITl 

080E: 

18 

109 INIT2 

CLC 


080F: 

20 4B D6 

110 


JSR 

SCRTCH 

0812: 

20 93 FD 

111 


JSR 

SETVID ;DOS ab- 

0815: 

20 89 FE 

112 


JSR 

SETKBD ;hängen 

0818: 

A9 27 

113 


LDA 

#<INIT3 ;Reset- 

081A: 

8D F2 03 

114 


STA 

RESVKT jVektor 

081D: 

A9 08 

115 


LDA 

#>INIT3 ;setzen 

081F: 

8D F3 03 

116 


STA 

RESVKT+1 

0822: 

49 A5 

117 


EOR 

+$A5 :Funny 

0824: 

8D F4 03 

118 


STA 

RESVKT+2 



119 






120 

* Units ] 

poken. 

Richtung beachten 



121 

* 



0827: 

AC 00 03 

122 

INIT3 

LDY 

DISKUNIT 

082A; 

AE 01 f>3 

123 


LOX 

HARDUHXT 

0B2D; 

aC DD 08 

124 


STY 

»lUNXT iM9ga-> 

0830: 

8E CE 08 

125 


STX 

RUNIT :Erptii 

0833: 

Al> 12 03 

126 


LOA 

RXCHTUNG 

0836: 

00 06 

127 


BNE 

INIT4 lOl 

1 0838: 

9€ CE 08 

128 


STY 

RUHIT :Erphl 

0B3B' 

8E DD 08 

129 


STX 

WOKIT :-?Mega 



130 

* 





131 

* Mit Hard-Block $0001 beginnen! 



132 

* 



083E 

A0 01 

133 

INIT4 

LDY 

fl ;S000i 

0940 

A2 00 

134 


LDX 


0842 

SC DI 09 

135 


STY 

RBLKL 

0843 

8E D2 08 

139 


STX 

RBLKH ;ErpUl 

0848 

AD 12 03 

137 


LDA 

RICHTUNG 

084B 

D0 06 

138 


BNE 

INIT5 

0B4D 

ec E0 08 

139 


STY 

?1BLKL :Erplii 

0850 

86 El 08 

140 


STX 

WBLKH :->Me£n 



141 

* 





142 

* Disk-Nr. + 

Komplettdisk-Zähler 



143 

* 



0853 

; A9 00 

144 

INIT5 

LDA 

+0 

0855 

; 8D IB 03 

145 


STA 

DISKNR 

0858 

: AD 06 03 

146 


LDA 

KOMPDISK 

085B 

: 85 FA 

147 


STA 

KDTEMP 



148 

* 





149 

* Komplettdisk? 



150 

*- 





151 

* 



085D 

: F0 2C 

152 

KOMPDSK? BEQ 

RESTDSK? :nein(?) 



153 

* 





154 

* Komplettdisk-Hauptpuffer 



155 

* 



085F 

EE IB 03 

156 

KDLOOPl 

INC 

DISKNR 

0862 

; C6 FA 

157 


DEC 

KDTEMP 

0864 

AD 0B 03 

158 


LDA 

PUFEND 

0867 

85 FD 

159 


STA 

PETEMP ;PUFEND 

086S 

i: 20 34 09 

160 


JSR 

INSERTI 

086C: AD 0C 03 

161 


LDA 

KDHS :Haupt? 

086F: F0 09 

162 


BEQ 

KDL00P3 ;nein(?) 

0871: 85 FB 

163 


STA 

KDHSTEMP 

0873: 20 ED 08 

164 

KDL00P2 

JSR 

READA :Haupt 

0876: C6 FB 

165 


DEC 

KDHSTEMP ;erneut? 

0878; D0 F9 

166 


BNE 

KDL00P2 :ja 



167 

* 





168 

# Komplettdisk-Restpuffer I 



169 

* 



087A: AD 0E 03 

170 

KDL00P3 

LDA 

KDRSPE :Rest 

087D: 85 FD 

171 


STA 

PETEMP ;KDRSPE 

087F: AD 0D 03 

172 


LDA 

KDRS 

0882: F0 07 

173 


BEQ 

RESTDSK? :nein 

0884: 20 ED 08 

174 


JSR 

READA 



175 

* 





176 

* Noch 

eine 

Komplettdisk? 



177 

* 



0887: A5 FA 

178 


LDA 

KDTEMP 

0889: D0 D4 

179 


BNE 

KDLOOPl 



180 

* 





181 

* Restdisk? 




182 

«- 





183 

* 



088B; AD 07 03 

; 184 

RESTDSK? LDA 

RESTDISK 

088E: F0 26 

185 


BEQ 

1 EXITl ;nein 



186 

* 





187 

* Restdisk-Hauptpuffer 



188 

* 



0890: EE IB 02 

i 189 

RDLOOPl INC 

1 DISKNR 

0893: AD 0B 03 190 


LDA PUFEND 

0896: 85 FD 

191 


STA PETEMP ;PUFEND 

0898: 20 34 09 192 


JSR INSERTI 

089B: AD 0F 03 193 


LDA RDHS ;Haupt? 

089E; F0 09 

194 


BEQ RDL00P3 ;nein(?) 

08A0: 85 FC 

195 


STA RDHSTEMP 

08A2: 20 ED 08 196 

RDL00P2 JSR READA ;Haupt 

a>3A5: C6 FC 

197 


DEC RDHSTEMP ;erneut? 


08A7: D0 F9 


198 

199 


BNE RDL00P2 


200 * Restdisk-Restpuffer 

201 * 


08A9: 

08AC: 

08AE: 

08B1: 

08B3; 

08B6; 

08B8: 

08BB: 

08BE: 

08BF: 

08C1: 


85 FD 
AD 10 
F0 03 


A0 02 


88 

10 F7 


03 

202 

RDL00P3 

LDA 


203 


STA 

03 

204 


LDA 


205 


BEQ 

08 

206 


JSR 


207 

* 



208 

EXITl 

LDY 

03 

209 

EXIT2 

LDA 

03 

210 


STA 


211 


DEY 


212 


BPL 

E0 

213 


JMP 


214 

215 

* 



;Rest 
;RDRSPE 


;Reset 
;wieder 
;normal 

:Basic 


216 * 

217 * Diverse Unterroutinen 

218 * 

219 * 1 Block lesen 



220 

* 



0BC4! 20 00 BP 

221 

READ 

JSR 

MLI 

0BC7: 90 

222 


HEX 

80 

08C8: CD 08 

223 


DA 

RCNT 

08CA: B0 16 

224 


BOS 

JlLIERBl 

08CC: S0 

226 


RTS 


0ßCO: 03 

226 

RCNT 

HEX 

03 

08CE: 00 

227 

RU HIT 

HEX 

00 

0BCP: 00 

228 

RPUFL 

HEX 

00 

0SD0: 00 

229 

RPUFH 

HEX 

00 

0801: 00 

230 

hblkl 

HEX 

00 

0002: 00 

231 

RBLKH 

HEX 

00 


; Read 


Count 

ßopokt 

eopoki 

Hepokt 

gopokt 


233 * 1 Block schreiben 

234 * 


08D3 

08D6 

08D7 

08D9 

08DB 

08DC 

08DD 

08DE 

08DF 

08E0 

08E1 


20 00 BF 

235 

WEITE 

JSR 

MLI 


81 


236 


HEX 

81 :Write 

DC 08 


237 


DA 

WCNT 


B0 07 


238 


BCS 

MLIERRl 


60 


239 


RTS 



03 


240 

WCNT 

HEX 

03 

Count 

00 


241 

WUNIT 

HEX 

00 

gepokt 

00 


242 

WPUFL 

HEX 

00 

stets 0 

00 


243 

WPUFH 

HEX 

00 

gepokt 

00 


244 

WBLKL 

HEX 

00 

gepokt 

00 


245 

WBLKH 

HEX 

00 

gepokt 



246 

* 




48 


247 

MLIERRl 

PHA 


MLI- 

20 58 

FC 

248 


JSR 

HOME 

Fehler- 

68 


249 


PLA 


nummer- 

20 DA 

FD 

250 


JSR 

PRBYTE 

ausgabe 



251 

* 






252 

* Numquam retrorsum! 




253 

* 




4C EA 08 

254 

MLIERR2 

JMP 

MLIERR2 

;Reset 


255 


256 # Hauptschübe/Restschub: 

257 


Read 


aSEDi AD 

afiF0; 80 
mrz: A9 
20 

&0FSi 20 
08Fa; EC 
OBFE: D0 
0900: EE 
0903: EE 
0906: EE 
0909: AD 
090Cr CS 
090E: 90 


0A 03 
D0 08 
D2 

ED PD 
C4 08 
Dl 0S 
03 

D2 08 
D0 08 
D0 08 
D0 0B 
FO 
ES 


253 

READA 

LOA 

PUFANF 


259 


STA 

RPUFH 


260 


LDA 



261 


JSR 

COÖT 


262 

READB 

JSR 

READ 


263 


INC 

RBLKL 

.Blk+l 

264 


BHE 

READC 


266 


INC 

RBLKH 


266 

READC 

INC 

RPUFH 

;Püf+2 

267 


INC 

RPUFH 


268 


LOA 

RPUFH 


269 


CttP 

PETEMP 


270 


BCC 

REAOB 



c /1 * 

272 # Hauptschübe/Restschub: 

273 * 


^910; AD 
)9I3i SD 
^^16£ A9 
^918: 20 

mB: 20 
i9lE: EE 
>921; D0 
B23: EE 
9926: EE 
3929 t EE 
392C: AD 
592F: C5 
21931: 90 
21933: 60 


0A 03 
DF 0B 
07 

ED FO 
D3 09 
E0 08 
03 

El 09 
DF 08 
DF 0S 
DF 08 
FD 
E8 


274 

waiTBA 

LpA 

PUFANF 


27B 


STA 

WPUFH 


276 


LOA 

♦"W" 


277 


JSR 

COUT 


278 

WRITBB 

JSR 

«RITE 


279 


IRC 

WBLKL 

:Blk+l 

280 


BKE 

WRITEC 


281 


IHC 

WBLKH 


282 

WRITEC 

INC 

WPUFH 

:Puf+2 

263 


INC 

WPÖFH 


2B4 


LDA 

WPUFH 


285 


CMP 

PETEMP 


286 


BCC 

WEITES 


287 


RTS 




288 * 

289 * Diskette einlegen 


38 
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pRodos 






290 

* 



0934 

20 

58 

FC 

291 

INSERTl 

JSR 

HOME 

0937 

A9 

09 


292 


LDA 

+9 ; 

:Vtab 8 

0939 

20 

5B 

FB 

293 


JSR 

TABV 

093C 

AE 

IB 

03 

294 


LDX 

DISKNR ;low 

093F 

A9 

00 


295 


LDA 

+0 i 

:high=0 

0941 

20 

24 

ED 

296 


JSR 

LINPRT 

0944 

A0 

00 


297 


LDY 

#0 

0946 

B9 

DD 

09 

298 

INSERT2 

LDA 

EINLEGEN,Y 

0949 

F0 

06 


299 


BEQ 

INSERT3 

094B 

20 

ED 

FD 

300 


JSR 

COUT 

094E 

C8 



301 


INY 


094F 

D0 

F5 


302 


BNE 

INSERT2 

0951 

20 

0C 

FD 

303 

INSERT3 

JSR 

RDKEY 

0954 

C9 

D7 


304 


CMP 

#"W" 

0956 

D0 

F9 


305 


BNE 

INSERT3 

0958 

20 

8E 

FD 

306 


JSR 

CROUT 

095B 

20 

8E 

FD 

307 


JSR 

CROUT 





308 

* 







309 

* "TT.MM 

, JJ" - 

1- Disknummer 





310 

* 



095E 

A9 

00 


311 

IDENT 

LDA 

#0 

0960 

85 

CE 


312 


STA 

IND 

0962 

AD 

0A 

03 

313 


LDA 

PUFANF 

0965 

85 

CF 


314 


STA 

IND+1 

0967 

AD 

12 

03 

315 


LDA 

RICHTUNG 

096A 

F0 

IF 


316 


BEQ 

IDENT0A 





317 

* 







318 

* auf Block 0 

schreiben 





319 




096C 

A9 

00 


320 

IDENTIA 

LDA 

+0 

$0000 

096E 

.8D 

E0 

08 

321 


STA 

WBLKL 

Mega-> 

0971 

8D 

El 

08 

322 


STA 

WBLKH 

Erphi 

0974 

AD 

0A 

03 

323 


LDA 

PUFANF 

0977 

8D 

DF 

08 

324 


STA 

WPUFH 

097A 

A0 

08 


325 


LDY 

#8 

097C 

B9 

13 

03 

326 

IDENTIB 

LDA 

DATUM,Y 

097F 

91 

CE 


327 


STA 

(IND),Y 

0981 

88 



328 


DEY 


0982 

10 

F8 


329 


BPL 

IDENTIB 

0984 

20 

D3 

08 

330 


JSR 

WRITE 

0987 

EE 

E0 

08 

331 


INC 

WBLKL 

;$0001 

098A 

60 



332 


RTS 






333 

* 







334 

* von Block 0 

lesen 





335 

* 



098B 

: A9 

00 


336 

IDENT0A 

LDA 

4=0 

$0000 

098D 

: SD 

Dl 

08 

337 


STA 

RBLKL 

Erphi 

0990 

: 8D 

D2 

08 

338 


STA 

RBLKH 

->Mega 

0993 

: AD 

0A 

03 

339 


LDA 

PUFANF 

0996 

: 8D 

D0 

08 

340 


STA 

RPUFH 

0999 

: 20 

C4 

08 

341 


JSR 

READ 

099C 

: A0 

08 


342 


LDY 

+8 

099E 

: B9 

13 

03 

343 

IDENT0B 

LDA 

DATUM,Y 

09A1 

: Dl 

CE 


344 


CMP 

(IND),Y 

09A3 

: D0 

07 


345 


BNE 

IDENT0C 

09A5 

: 88 



346 


DEY 


09A6 

: 10 

F6 


347 


BPL 

IDENT0B 

09A8 

: EE 

Dl 

08 

348 


INC 

RBLKL 

:$0001 

09AB 

: 60 



349 


RTS 






350 

* 







351 

* Falsche Backup-Diskette 





352 




09AC 

: 20 

DD 

FB 

353 

IDENT0C 

JSR 

BELLIA 

09AF 

: A0 

00 


354 


LDY 

#0 

09B1 

: B9 

F7 

09 

355 

IDENT0D 

LDA 

FALSCH,Y 

09B4 

: F0 

06 


356 


BEQ 

IDENT0E 

09B6 

: 20 

ED 

FD 

357 


JSR 

COUT 

09B9 

: C8 



358 


INY 


09BA 

: D0 

F5 


359 


BNE 

IDENT0D 

09BC 

: A0 

08 


360 

IDENT0E 

LDY 

#8 

09BE 

: Bl 

CE 


361 


LDA 

(IND),Y 

;Nr, 

09C0 

: AA 



362 


TAX 


; low 

09C1 

: A9 

00 


363 


LDA 

#0 

;high=0 

09C3 

: 20 

24 

ED 

364 


JSR 

LINPRT 

09C6 

: A9 

AD 


365 


LDA 


09C8 

: A0 

00 


366 


LDY 

#0 

09CA 

: 20 

5C 

DB 

367 

IDENT0F 

JSR 

OUTDO 

09CD 

: Bl 

CE 


368 


LDA 

(IND),Y 

09CF 

: C8 



369 


INY 


0900 

; C0 

09 


370 


CPY 

+9 

09D2 

; D0 

F6 


371 


BNE 

IDENT0F 

09D4 

: 20 

57 

DB 

372 


JSR 

OUTSP 

09D7 

: 20 

0C 

FD 

373 


JSR 

RDKEY 

09DA 

: 4C 

34 

09 

374 


JMP 

INSERTl 





375 

* 



09DD 

: AE 

A0 

C4 

376 

EINLEGEN 

ASC 

DISK" 

09E3 

: A0 

C5 

C9 

377 


ASC 

" EINLEGEN" 

09EC 

: 8D 

8D 


378 


HEX 

8D8D 


09EE: D7 

A8 

C5 

379 

ASC 

"W(EITER " 

09F6: 00 



380 

HEX 

00 

09F7t C6 

CI 

CC 

381 FALSCH 

ASC 

"FALSCH! " 

09FF: 00 



382 

HEX 

00 


KOPY.160.SPUR 


100 REM #KOPY,160hSPUR* 

110 DU = 6;HU = 6 
120 DB = 1280:HB = 1280 
130 PA = 02560: REH $0A00 
140 PE = 48640: REM $BE00 

150 PL = PE - PA: IF PL / 512 < > INT (PL / 512) THEN 
PRINT "NUR GANZE BLOCKANZAHL!": END 
160 P = 768: REM PAGE-3-PARAMETER 
170 POKE P.DU * 16 + 0: REM +128-FUER-D2 
180 POKE P + 1,HU * 16 + 128: REM +128-FUER-D2 

190 POKE P + 3, INT (DB / 256); POKE P + 2,DB - 

PEEK (P + 3) * 256: REM DISK-BLOCKANZAHL 
200 POKE P + 5, INT (HB / 256): POKE P + 4,HB - 
PEEK (P + 5) * 256: REM HARD-BLOCKANZAHL 
210 KD = 1: POKE P + 6,KD:RD = 0: POKE P + 7,RD: POKE P + 8,0; 
POKE P + 9,0: REM KOMPLETTDISK 

220 POKE P + 10,PA / 256: POKE P + 11,PE / 256:PB = PL / 512: 

REM ANFANG-ENDE-LAENGE 

230 HS = INT (DB / PB): POKE P + 12,HS: POKE P + 13,0: 

POKE P + 14,0: REM KOMPLETTDISK-HAUPTSCHUEBE 
240 IF DB / PB > HS THEN RS = (DB - HS * PB) * 2: POKE P + 13,1: 

POKE P + 14,RS + PEEK (P + 10): REM KOHPLETTDISK-RESTSCHUB 

250 POKE P + 15,0: POKE P + 16,0: POKE P + 17,0: 

REM KEINE-RESTDISK! 

260 PRINT CHR$ (21): TEXT : HOME : PRINT : INVERSE : 

HTAB 10: PRINT "** 160-SPUR-KOPY **": 

HTAB 10: PRINT VON U. STIEHL **": NORMAL : 

PRINT CHR$ (4);"PREFIX": INPUT SP$: REM START-PREFIX 
270 HTAB 10: PRINT "ORIGINAL IN DRIVE 1": PRINT : 

HTAB 10: PRINT "DUPLIKAT IN DRIVE 2" 

280 PRINT : PRINT CHR$ (4);"BRUN";SP$:"KOPY.160.SPUR.0": END 


KOPY.160.SPUR.O 

BSAVE KOPY. 160,SPUR 0, A2051,L474 
(Erst linke, dann rechte Spalte eingeben) 


$ 0800 : 00 00 00 
$0808: 8D 6B BF 
$0810: BF 8D 6E 
$0818; BF A0 02 
$0820: 03 88 10 
$0828: 20 93 FD 
$0830: 8D F2 03 
$0838: 49 A5 8D 
$0840: AE 01 03 
$0848: 09 AD 12 
$0850: 09 8E 22 
$0858: 8C 16 09 
$0860: 03 D0 06 
$0868: 09 A9 00 
$0870: 03 85 FA 
$0878: C6 FA AD 
$0880; 79 09 AD 
$0888: FB 20 32 
$0890: AD 0E 03 
$0898: F0 07 20 
$08A0: D4 AD 07 
$08A8: 03 AD 0B 
$08B0: 09 AD 0F 
$08B8: 20 32 09 
$08C0: 11 03 85 
$08C8; 03 20 32 
$08D0: 03 99 F2 
$08D8: 58 FC A9 
$08E0: 00 B9 FA 
$08E8: FD C8 D0 
$08F0; CE F0 13 
$08F8: 03 08 C5 


A9 

00 

8D 

12 

03 

8D 

6C 

BF 

8D 

6D 

BF 

A9 

03 

8D 

6F 

B9 

F2 

03 

99 

IC 

F7 

18 

20 

4B 

D6 

20 

89 

FE 

A9 

3D 

A9 

08 

8D 

F3 

03 

F4 

03 

AC 

00 

03 

8C 

22 

09 

8E 

13 

03 

D0 

06 

8C 

13 

09 

A0 

00 

A2 

00 

8E 

17 

09 

AD 

12 

8C 

25 

09 

8E 

26 

8D 

IB 

03 

AD 

06 

F0 

2C 

EE 

IB 

03 

0B 

03 

85 

FD 

20 

0C 

03 

F0 

09 

85 

09 

C6 

FB 

D0 

F9 

85 

FD 

AD 

0D 

03 

32 

09 

A5 

FA 

D0 

03 

F0 

26 

EE 

IB 

03 

85 

FD 

20 

79 

03 

F0 

09 

85 

FC 

C6 

FC 

D0 

F9 

AD 

FD 

AD 

10 

03 

F0 

09 

A0 

02 

B9 

IC 

03 

88 

10 

F7 

20 

05 

20 

5B 

FB 

A0 

08 

F0 

06 

20 

ED 

F5 

20 

0C 

FD 

C9 

C9 

CA 

D0 

F5 

4C 

D2 

CE 

C5 

D5 

D4 


$0900: A0 CA AF 
$0908: E0 20 00 
$0910; 16 60 03 
$0918: 20 00 BF 
$0920: 60 03 00 
$0928: 20 58 FC 
$0930: 2F 09 AD 
$0938: A9 D2 20 
$0940: EE 16 09 
$0948: EE 15 09 
$0950: 09 C5 FD 
$0958: 8D 24 09 
$0960; 20 18 09 
$0968: EE 26 09 
$0970: 09 AD 24 
$0978: 60 20 58 
$0980: FB A0 00 
$0988: 20 ED FD 
$0990; FD C9 D7 
$0998; 20 8E FD 
$09A0: 8D 17 09 
$09A8: 09 60 CF 
$09B0: CI CC A0 
$09B8: C9 D6 C5 
$09C0: D5 D0 CC 
$09C8: C9 CE A0 
$09D0; A0 B2 8D 
$09D8; D4 C5 D2 


CE 

A0 

00 4C 

03 

BF 

80 

12 

09 

B0 

00 

00 

00 

00 

00 

81 

21 

09 

B0 

07 

00 

00 

00 

00 

48 

68 

20 

DA 

FD 

4C 

0A 

03 

8D 

15 

09 

ED 

FD 

20 

09 

09 

D0 

03 

EE 

17 

09 

EE 

15 

09 AD 

15 

90 

E8 

AD 

0A 

03 

A9 

D7 

20 

ED 

FD 

EE 

25 

09 

D0 

03 

EE 

24 

09 

EE 

24 

09 

C5 

FD 

90 

E8 

FC 

A9 

05 

20 

5B 

B9 

AA 

09 

F0 

06 

C8 

D0 

F5 

20 

0C 

D0 

F9 

20 

8E 

FD 

A9 

00 

8D 

16 

09 

AD 

0A 

03 

8D 

15 

D2 

C9 

C7 

C9 

CE 

C9 

CE 

A0 

C4 

D2 

A0 

Bl 

8D 

8D 

C4 

C9 

CB 

CI 

D4 

A0 

C4 

D2 

C9 

D6 

C5 

8D 

D7 

A8 

C5 

C9 

A0 

00 

00 

00 

00 
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SUPERDUMP für 


Apple-Pascal 

1.1 und 1.2 


Grafik-Ausdruck für 
und Imagewriter I 


von Jürgen Geiß 


Auf Wunsch sehr vieler Peeker-Leser, die 
Grafiken mittels SU PER DU MP auch in 
Pascal ausgeben lassen wollen, soll hier 
die Version für Apple-Pascal 1.1 bzw. 1.2 
gebracht werden. Da der Assemblerteil 
fast der gleiche wie bei der in Peeker, Heft 
6/85 vorgestellten DOS-3.3-Version ist, 
kann er wegen der Länge nicht abgedruckt 
werden. Er befindet sich aber auf der 
Peeker-Sammeldisk. 

Das Drucken mittels SUPERDUMP in Pas¬ 
cal kann wesentlich eleganter als in Basic 
vollzogen werden. Es gibt hier keine 
Peeks und Pokes, sondern vordefinierte 
Datentypen, die Variablen enthalten, deren 
Wertebereich anzeigt, welche Werte er¬ 
laubt sind. Diese Datentypen werden im 
Interfaceteil der Unit SuperDump dekla¬ 
riert. Dort befinden sich auch die Deklara¬ 
tionen von acht Prozeduren, die die Hand¬ 
habung der Grafik erleichtern sollten (s. Li- 
sting 1: Unit SuperDump). Doch zuerst 
zu den Typen: 


1. Control-Block 

Der CtrIBIk entspricht genau dem aus 
Peeker, Heft 6/85. In ihm befinden sich die 
druckerspezifischen Steuerzeichen, die 
aus 4 Strings zu je 15 Zeichen gebildet 
werden. 

PINIT ist der String, der einmal zu Beginn 
des Druckvorgangs gesendet wird. Darin 


Epson-FX80 


können beispielsweise die Steuercodes 
für den Zeilenabstand untergebracht 
werden. 

PLINE ist ein String, der vor jeder auszu¬ 
gebenden Druckzeile gesendet wird. Dort 
müssen sich die Steuerzeichen zum Um¬ 
schalten des Druckers auf den Grafikbe¬ 
trieb befinden. 

In PLF1 müssen sich die Steuerzeichen 
befinden, die das Papier um 1/216“ oder 
1/144“ (Zoll) vorwärts transportieren (wird 
nur bei 2- und 4-fach-Druck benutzt). 

In PEXIT schließlich müssen sich die 
Steuerzeichen befinden, die zum Ab¬ 
schluß eines Druckvorgangs gesendet 
werden sollen. 

ln Listing 2: Print, Epson-Version befin¬ 
det sich ein Beispiel einer Vorbelegung 
des CtrIBIocks für den Epson-Drucker FX- 
80, in Listing 3: Print, Imagewriter ent¬ 
sprechendes für den Imagewriter 1. (Anm. 
d.Red.: Damit nicht wieder eine Flut von 
Zuschriften auf die Redaktion niederpras¬ 
selt, sei mit Nachdruck darauf hingewie¬ 
sen, daß SUPERDUMP für Pascal auf ei¬ 
nem Apple Ile (a) mit Epson FX-80 und 
Parallelschnittstelle und (b) mit Imagewri¬ 
ter I und Super-Serial-Card getestet wur¬ 
de. Die Anpassung an andere Drucker, 
z.B. von Star, Okidata usw., kann mangels 
Hardware von der Redaktion nicht vorge¬ 
nommen werden. Wenden Sie sich direkt 
an den Lieferanten oder den jeweiligen 
Drucker-Hersteller.) 



2. Parameter 

Um nicht eine Vielzahl von Parametern an 
die Dump-Prozedur, die das Bild druckt, 
übergeben zu müssen, wurden diese im 
Record Dumptype zusammengefaßt. Die¬ 
ser enthält im einzelnen: 

CtrIAdr: Darin muß sich die Adresse einer 
Variablen vom Typ CtrIBIk befinden. Um. 
die Adressen einer Variablen zu erhalten, 
kann man sich der Funktion Adr bedienen. 
Impression: Druckschwärze (0 = normal, 

1 = Doppeldruck, 2 = Vierfachdruck). 
XOR: 0 bedeutet Bild schwarz auf weiß 
ausgeben, 255 weiß auf schwarz. 
Dlrectlon: 0 = Horizontaldruck, 1 = Verti¬ 
kaldruck. 

Frame: 0 = kein Rahmen, 1 = Rahmen 
um das Bild zeichnen. 

PlcAddr: Bildadresse, Seite 1 = 8192, 
Seite 2 = 16384 

Rfactor: Anzahl der Wiederholungen des 
gleichen Bildes nebeneinander 
Rdlstance: Anzahl der Bildpunkte, die 
zwischen 2 oder mehreren aufeinanderfol¬ 
genden Bildern frei bleiben soll. 

Left, Right, Top und Bottom: Linker, 
rechter, oberer und unterer Bildrand. 
Xfactor, Yfactor: Dehnung des Bildes in 
X- bzw. Y-Richtung. 

Hires560: 0 = normale 280 ^ 192 Grafik, 
1 = 560 ^ 192 (Double Hires) Grafik. 
AutoLF: 0 = sende LF nach CR, 1 = 
sende kein LF nach CR. 

DiffPics; Anzahl der verschiedenen Teil¬ 
bilder (für große Bilder). 

Needle: Drucknadel-Richtung, 0 = Ep¬ 
son-Drucker, 1 = imagewriter 
Comptype: 0 = Apple NH- oder Apple Ile 
mit parallelem Interface, 1 = Apple ll-F 
oder Apple Ile mit Super-Serial-Card, 2 = 
Apple llc. 


3. Prozeduren der Unit 

Um ein Bild zu drucken, muß die Prozedur 
Dump mit einer Variablen des eben erläu¬ 
terten Typs aufgerufen werden (s. Listing 
2 ). 

Die Prozedur MoveAuxMain verschiebt 
den Speicher aus dem Auxiliary-RAM ab 
Adresse $2000 des Apple Ile oder llc in 
das Main-RAM nach Adresse $4000. 

Die Prozedur MoveMainAux verschiebt 
von Main-RAM $2000 nach Aux-RAM 
$4000. 

Mit diesen beiden Prozeduren können bei¬ 
spielsweise Double-Hires-Bilder erstellt, 
in das Main-RAM geschoben und an¬ 
schließend abgespeichert werden. 
Convert560 konvertiert ein Double-Hires- 
Bild in 2 normale Hires-Bilder mit linker 
Hälfte in Seite 1 und rechter Hälfte in Seite 
2 . 


40 


Peeker 6/86 













>f KCsd 



Convert280 konvertiert zwei normale Hi- 
res-Bilder ($2000 - $5FFF) in ein Double- 
Hires-Bild. 

Da oft ein Bild nur normal ausgegeben 
werden soll, d.h. ohne Verzerrung oder 
sonstigen Besonderheiten, wird die Pro¬ 
zedur SetDefault verwendet. Sie stellt alle 
Variablen des Dump-Records auf Stan¬ 
dardwerte, so daß anschließend bei Bedarf 
nur noch wenige Änderungen vorgenom¬ 
men werden müssen. 

Um die Anzahl der Bildpunkte zu ermitteln, 
die in jeder Zeile an den Drucker gesendet 
werden, muß die Prozedur GetGrafBytes 
benutzt werden. Eingabewert ist eine 
Dumptype-Variable, Ausgabewerte sind 
eine Integerzahl sowie ein String, in denen 
sich dann die Anzahl der Bildpunkte befin¬ 
den. Für einen Epson-Drucker wird die 
Integerzahl, für einen Imagewriter der 
String interessant sein. Bei einem Bild von 
280 * 192 befindet sich in der Variablen 
Bytes die Integerzahl 280, im Bytestr der 
String „0280“. Im Beispiel in Listing 2 
erkennt man die Benutzung von GetGraf¬ 
Bytes. 

Die letzte Prozedur in SuperDump ist die 
Funktion Adr. Sie liefert die Adresse einer 
beliebigen Variablen im Speicher. Die 
Funktion wird benutzt, um die Adresse des 
Kontrollblockes zu ermitteln, um sie der 
Varibalen DumpParams.CtrIAdr zuzu¬ 
weisen. 

4. Implementation-Teil 

Im Implementation-Teil wird die Imple¬ 
mentierung der einzelnen Prozeduren auf¬ 
gezeigt. 

Um nun ein Bild drucken lassen zu kön¬ 
nen, muß nach dem Programmkopf ein 
uses TurtleGraphics, SuperDump; 
stehen, um dem Programm die neuen Ty¬ 
pen und Prozeduren mitzuteilen. 

Im Beispielprogramm Print werden 4 Va¬ 
riablen benötigt; 

CtrIBIock: CtrlBIk ist der Kontrollblock mit 
den Steuerzeichen. 

DumpParams: Dumptype enthält sämtli¬ 
che zu übergebenden Parameter. 

S: String und Bytes: integer werden für 
GetGrafBytes benötigt. 

Das Programm initialisiert die Grafik und 
zeichnet ein Dreieck mit den Koordinaten 
(0, 0), (279, 191) und (0, 191). Anschlie¬ 
ßend wird SetDefault benutzt, um nicht 
alle Parameter selbst einstellen zu müs¬ 
sen. Die Adresse des Kontrollblockes wird 
ermittelt und der Variablen DumpPa¬ 
rams.CtrIAdr zugewiesen. Nun muß noch 
die Anzahl der Grafikpunkte durch einen 
Aufruf von GetGrafBytes ermittelt werden. 
Bevor gedruckt werden soll, muß der Kon¬ 
trollblock vorbesetzt werden. 

In unserem Beispiel in Listing 2 handelt es 
sich um einen Epson-Drucker. Die Strings 
Pinit, Pline, Plf1 und Pexit haben eine Län¬ 


ge von 3, 4, 3 bzw. 2 Zeichen und werden 
deshalb mit entsprechend vielen Zeichen 
gefüllt („-“), damit die Länge der Strings 
definiert ist. Dann werden die Steuerzei¬ 
chen eingesetzt. Am Ende genügt ein Auf¬ 
ruf von Dump (DumpParams), um das Bild 
an den Drucker zu schicken. 

Für den Imagewriter muß lediglich der 
Kontrollblock geändert und der Computer¬ 
typ eingetellt werden (s. Peeker 6/85). Die 
Ausgabe auf den Drucker erfolgt im As¬ 
semblerteil der Unit SuperDump nicht 
durch Anspringen der Pascal-I/O-Tabeile, 
d.h. daß keine Steuerzeichen für das Inter¬ 
face gesendet werden dürfen (wie z.B. 
CtrI-l, Z), da diese sonst an den Drucker 
weitergeleitet werden würden. Die Initiali¬ 
sierung des Kontrollblockes für Imagewri¬ 
ter könnte dann also aussehen wie in Li¬ 
sting 3. 


Kurzhinweise 

1. Zweck; 

Ausgabe von Hires- und Double-Hires- 
Bildern auf den Epson FX-80 oder Ima¬ 
gewriter I. 

2. Konfiguration; 

Apple ll-i-/e, Apple Pascal 1.1 oder 1.2; 
FX-80 oder Imagewriter I. Achtung; llc und 
Imagewriter II wurden nicht von der Re¬ 
daktion getestet! 

3. Test: 

Exec EPSON oder IMAGEWRITER nach 
(!) der Einbindung in Library (siehe 5) 

4. Sammeldisk: 

Die Sammeldisk # 18 ist eine kombinierte 
Pascal-DOS-Diskette und enthält in Pas¬ 
cal-Directory folgende Dateien; 

CALLDUMP.TEXT (40 Blöcke) 
CALLDUMP.CODE (26 Blöcke) 
SUPERDUMPTEXT (14 Blöcke) 
SUPERDUMP.LIB (10 Blöcke) 
EPSON.TEXT (4 Blöcke) 

EPSON.CODE (2 Blöcke) 
IMAGEWRITR.TEXT (4 Blöcke) 
IMAGEWRITR.CODE (2 Blöcke) 
LIB.TEXT (4 Blöcke) 

FUELLER (168 Blöcke; leer!) 

5. Einbindung von SUPERDUMP.LIB in 
SYSTEM.LIBRARY: 

a) Starten von LIBRARY.CODE auf der 
APPLE3: Diskette 

b) Auf die Frage Output Code File mit 
SYSTEM.LIBRARY antworten 

c) Auf die Frage Link Code File mit SY¬ 
STEM.LIBRARY antworten 

d) Alle Slots mit dem ” = ” Befehl kopieren 

e) Mittels New „SUPERDUMP.LIB" holen 

f) Slot 1 nach Slot 7 oder anderen freien 
Slot kopieren (1 <LEERTASTE> 7) 

g) Programm mit „q” und anschließendem 
<RETURN> verlassen 

h) Testprogramm EPSON.CODE oder 
IMAGEWRITR.CODE kann jetzt ausge¬ 
führt werden. 





geratan untnri 


PICOTIPP Tastatur 


deutsch, für Apple* II+ und Kompatible 

- 95 Tasten, Deutsche Tastatur nach DIN 

- 12 Funktionstasten über EPROM 4-facti (Mlegbei 

- 7 Funktionstasten über Tastatur frei definierbar 

- separater Cursorblock 

- Cursorsteuerung unter DOS und CP/M aktiv 

- Caps Lock 

- Neigungswinkel einstellbar 

- komplett mit Seriell-parailel-wandelbarem KnbAt 
direkt austauschbar mit Standard-Tastatur 

Interfaces/Tastaturen 198. 


MUSICAL-CARD DM 99.00 

CLOCK-CARD (Time II) DM 99,00 

RS 232 INTERFACE DM 89.00 

DISK-CONTROLLER DM 69.00 

16kRAMCARD DM 50.00 

LANGUAGE-CARD DM 60.00 

80 ZEICHEN 64 kB RAM nur Ile DM 79.00 

CÜMMUNIKATION OAHD dm 99,00 

StlP^a-PAnALLEb'CAnD DM 200.00 

PAR ALLEL-CARD DM 100.00 

RGB-CARD DM 99.00 

8088 CARD DM 300.00 

MOTHERBOARD 64 kB RAM 6502/Z80 DM 280.00 
MOTHERBOARD 48 kB RAM DM 250.00 

TASTATUR MAK II DM 1 68 00 

PICOTIPP TASTATUR deutsch DM 198,00 

LIEFERUNG NUR SOLANGE VORRAT REICHT! 


‘Apple ist ein eingetragenes Warenzeichen 
der Apple Computer Inc. 


picoircfi 

sigmaringer Straße 34 


d-7798 pfullendorf 
telefon 0 7552/399 
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Die ProDOS-Analyse 

Version 1.0.1, 1.0.2, 1.1.1 1985, 470 S., kart., 

DM 68,- 

von Arne Schäpers isbn 3-7785-1134-3 

„Die ProDOS Analyse“ ist die umfangreichste und detail¬ 
lierteste Darstellung, die jemals ein Apple-Betriebssystem 
erfahren hat. Wer die „Innereien“ von ProDOS bis zum 
letzten Byte, z. T. bis ins letzte Bit kennenlernen möchte, 
braucht dieses Buch. Das komplette Betriebssystem (Urla¬ 
der, MLI, Disk-Driver, RAM-Disk-Driver und Uhr-Routine) 
mit Ausnahme des BASIC-SYSTEM wird mit umfangrei¬ 
chen Kommentaren und Übersichtstabellen disassem- 
bliert. Dabei werden alle bisherigen Versionen von 1.0.1 
bis 1.1.1 berücksichtigt. „Die ProDOS-Analyse“ be¬ 
schreibt erstmals auch mehrere Programmierfehler, die bis 
in die neueste Version zu finden sind. Auch die nicht im 
„Technical Reference Manual“ aufgeführten Eigenschaften 
von ProDOS werden analysiert und beschrieben, z. B. die 
vertrackten eingebauten Testroutinen zur Identifikation der 
verschiedenen Apple-Il-Modelle und eventueller Nachbau¬ 
geräte. Programmierer, die ProDOS versionsabhängig 
„patchen“ möchten, erhalten hier den genauen Überblick, 
wo was geändert werden muß, damit dies keine negativen 
Konsequenzen hat. Durch die minutiöse theoretische Se- 
zierung von ProDOS eröffnen sich völlig neue program¬ 
mierpraktische Perspektiven. 

Dr. Alfred Hüthig Verlag • 6900 Heidelberg • Postfach 102869 


{Listing 1: Unit SuperDump} 

unit SuperDump; 


intrinsic code 26; 


interface 


type CtrlStr = string [15]; 


CtrlBlk = record 


Finit : CtrlStr: 

Pline : CtrlStr; 

Plfl : CtrlStr; 

Pexit : CtrlStr 

end; {CtrlBlk} 

Dumptype = record 


CtrlAdr 

integer; 

Impression 

0. .2; 

XOR 

0..255; 

Direction 

0. .1; 

Frame 

0..1; 

PicAddr 

integer; 

Rfactor 

integer; 

Rdistance 

integer; 

Le ft 

0..559; 

Right 

0,.559; 

Top 

0..191; 

Bottom 

0 .191; 

Xfactor 

1..31; 

Yfactor 

1. .31; 

Hires560 

0..1; 

AutoLF 

0. .1; 

DiffPics 

1, .8; 

Needle 

0.A: 

Comptype 

0. .2 

end; {Dumptype} 

procedure Dump (DumpParams : Dumptype); 

procedure MoveAuxMain; 


procedure MoveMainAux; 


procedure Convert560; 


procedure Convert280; 


procedure SetDefault (var DumpParams ; Dumptype); 

procedure GetGrafBytes (DumpParams : Dumptype; 

var Bytes ; integer; 

var Bytestr : string); 

function Adr (var AnyVariable) : integer; 

j 

i 

t 

f 

Implementation 


{$C unit SuperDump von Juergen Geiss} 

{$!-} 


{$R-} 




type Paramtype = record 


CtrlBlk 

0- 

.1024; 

CtrlAdr 

integer; 

Impression 

0- 

-2; 

XOR 

0. 

.255; 

Direction 

0- 

.1; 

Frame 

0. 

.1; 

PicAddr 

integer; 

Rfactor 

integer; 

Rdistance 

integer; 

Le ft 

integer; 

Right 

integer; 

Top 

0. 

.191; 

Bottom 

0. 

. 191; 

Xfactor 

1. 

.31; 

Yfactor 

1. 

.31; 

Hires560 

0. 

. 1; 

AutoLF 

0. 

.1; 

DiffPics 

1. 

.8; 

Needle 

0. 

,1; 

Comptype 

0. 

.2; 

Command 

0. 

.4 


{0 = dump 

1 = Aux $2000 -> Main $4000 

2 = Main $4000 -> Aux $2000 

3 = convert 560 -> 2*280 

4 = convert 2*280 -> 560} 

end; {Paramtype} 


{ - } 

procedure CallDump (Params : Paramtype); external; 

{- - -—-} 

procedure Dump (DumpParams : Dumptype); 

var Params : Paramtype; 

begin {Dump} 
with Params do 
begin 


CtrlBlk 

- 0 ; 

CtrlAdr 

» DunpParams.CtrlAdr^ 

Impression 

^ DuiipPa r&ms. lapressi on ; 

XOR 

= BunppäraDs.XOR:; 

Direction 

« DumpFarans.DireotiOfil 

Frame 

=■ DumpFuramS-FraflKj; 

PicAddr 

= DiuBpFiirams. PicAddr: 

Rfactor 

= DmapFarajEB-Rractor; 

Rdistance 

^ DumpPüiram^.Rdistance; 

Le ft 

“ DumpParams . La ft ia&d? + 


DumpFarama.Lsft div 7 • 056: 

Right 

DuBäpPftrams .Rigtit mod 7 + 


DumpFaraoLs.Right div 7 • 256: 

Top 

= DumpFarama.Top; 

Bottom 

** DumpParams , Bottoai ; 

Xfactor 

- DumpParams, X fact d r; 

Yfactor 

= DumpParams .Y f ao 10 r ; 

Hires560 

« DuiEfpParams.Hlrdsi5e0: 

AutoLF 

» PumpFarams.AutcLP; 

DiffPics 

^ DumpParams.OlffPiGs; 

Needle 

= DampParains.Keadle; 

Comptype 

- DunpParains.Cdmplypd,' 

Command 

« 0 

end; {with} 



CallDump (Params) 
end; {MoveAuxMain} 



procedure MoveAuxMain; 

var Params : Paramtype; 

begin {MoveAuxMain} 
Params.Command := 1; 
CallDump (Params) 
end; {MoveAuxMain} 


procedure MoveMainAux; 

var Params : Paramtype; 

begin {MoveMainAux} 
Params.Command := 2; 
CallDump (Params) 
end; {MoveMainAux} 
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Centronics-Inlerf. m. Kabel 79,— Speech-Karte 55.— 


Clock-Karte 


Komp 2E 797,- 

Apple 2E kompatible, Rechner 64K 
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Die Hsrd<g«kconlroller-SpozlaHiten 


MEGABYTES 

MIT 

MEGA-CORE 


j^O/20 MBytes Im Apple® 

TTg ^ 


Wenn Sie ein Buch oder eine Software 
nicht bei uns finden, warum schreiben Sie 
diese nicht für uns? 

Zur Erweiterung unseres Verlagspro¬ 
grammes in den Sparten EDV und Elektro¬ 
technik suchen wir ständig Autoren, die 
wie wir »Qualität« und »Zuverlässigkeit« 
hoch einschätzen. Im Bereich Home- und 
Personal-Computer haben auch schreib¬ 
freudige Hobby-EDVIer die Möglichkeit, 
ihre besonderen Kenntnisse umzusetzen. 
Die Erfahrung eines renommierten Fach¬ 
buch-Verlages wird Ihnen schon beim 
Abfassen des Manuskriptes zu Nutze 
kommen. Und unsere Konditionen sind 
interessant. 


Sprechen Sie uns doch einmal ganz un¬ 
verbindlich an: 


Militärische Konfliktsimulationen mit bis zu 100 
(!) Stunden Spieldauer. Die Herausforderung 
an jeden Strategiespieler. Farbinfo für APPLE 
gegen DM 0,80 Rückporto. 

Tliim4!S ]Wt?IJ.l!R 

COMPUTER—SERVICE 

Postfach 2526 7600 Offenburg 


fl PH II Dr. Alfred Hüthig Verlag 
II I—IfJ Abt. Buchverlag 
— ^ Postfach 10 28 69 
Htitllig 6900 Heidelberg 


ProDOS-Editor 

Die ursprünglich geplante zusätzliche Version für 80-Zeichen- 
darstellung wird nicht mehr erscheinen. Der ProDOS-Editor wird 
daher nach wie vor in der 40-Z/Z-Version ausgeliefert 

Softbreaker als Quellcode 

Aus Gründen der geänderten Hardware-Interrupt- und Rese¬ 
troutinen funktionierte der Softbreaker, wie auch in der Anleitung 
angegeben, nur auf dem ursprünglichen Ile mit den alten ROMs 
und somit nicht auf dem llc (mit alten und neuen ROMs) und 
dem Ile mit neuen ROMs. Da jetzt vermehrt die neuen Ile-ROMs 
eingesetzt werden, werden ab sofort die Manuals des Softbrea¬ 
kers zum Preis von DM 20.- (ursprünglich DM 48,-) mit einer 
neuen Diskette vertrieben, die 2 Objektcode-Vananten sowie 
zusätzlich den kompletten Quellcode enthält, da man die neuen 
Ile-ROMs oft überlisten kann, indem man absolute Einsprünge 
($C600 usw.) benutzt. Wer nach dem 1 1,86 den Softbreaker re¬ 
gulär bestellt hat, erhält die neue Diskette kostenlos nachgelie¬ 


fert, wenn die kostenlose Nachbestellung bis zum 30.6,86 beim 
Hüthig Software Service eingeht. 


Applesoft-Editor mit Merge-Befehl 

Der als Treue-Prämie für Fortsetzungsbezieher erhältliche Apple¬ 
soft-Editor namens MACROEDITOR auf der Sammeldisk #16 
hat einen zusätzlichen Befehl, der in der Anleitung in Peeker, 4/ 
86, S, 13 nicht erwähnt wurde Mit 
NEW 

LOAD HAUPTPROGRAMM 
&R1,1 (nur bei Zeilenkonflikten) 

&P 

kann man das Hauptprogramm in einen Schutzbereich überneh¬ 
men, wonach man mit 
LOAD UNTERPROGRAMM 
&R1000,1 (nur bei Zeilenkonflikten) 

&M 

Unterprogramm und Hauptprogramm vereinen („morgen“) kann. 


Wer extrem überlange Zeilen editieren muß, kann den LIST-Be- 
fehl vorübergehend patchen (LG erforderlich!): 
ü CALL -151 

* 0081 C081 

* DOOO <D000,FFFFM 

* C083 0083 

^ D748:0C (statt 07; Space vor Token) 

* D762: A4 85 DO AC (statt A9 20 DO 98; Space nach Token) 

* D70B; 40 12 D7 (statt 20 FB DA; Poke-33,33-Patch) 

* Ctrl-C 

ü K -F Zeilennummer 


Hüthig Software Service Postfach 102869 6900 Heidel¬ 
berg 1 
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procedure Convert560; 


var Params : Paramtype; 

begin {Convert560} 

Params.Command := 3; 

CalIDump (Params) 
end; {Convert560} 

- — --- ----- —) 

procedure Convert280; 

var Params : Paramtype; 

begin {Convert280} 

Params.Command ;= 4; 

CalIDump (Params) 
end; {Convert280} 


i --—-} 

procedure SetDefault {var DumpParams : Dumptype}; 
begin (SetDefault) 

fillchar (DumpParams, size_of (DumpParams), 0); 

with DumpParams do 
begin 

PicAddr := 8192; 

Rfactor := 1; 

Right := 279; 

Bottom := 191; 

Xfactor := 1; 

Yfactor := 1; 

DiffPics ;= 1 

end (with) 
end; {SetDefault} 

I-----} 

procedure GetGrafBytes {DumpParams : Dumptype; 

var Bytes : integer; 
var Bytestr : string}: 

var B : integer; 

I : integer; 

begin {GetGrafBytes} 
with DumpParams do 
begin 

if Direction = 0 

then B := Xfactor * (Right - Left + 1) 
eise B ;= Yfactor * (Bottom - Top + 1); 

B := (B + Rdistance) * Rfactor * DiffPics; 

B := abs (B) mod 10000; 

Bytes := B; 

Bytestr := '0000'; 

for I := 4 downto 1 do 
begin 

Bytestr [I] ;= ehr (ord ('0') + B mod 10); 

B := B div 10 
end {while} 
end {with} 
end; {GetGrafBytes} 

{-----—-J 

function Adr {(var AnyVariable) : integer}; external; 

{-} 

begin {SuperDump} 

{keine Initialisierung notwendig} 
end {SuperDump}. 


(Listing 2: Program Print, Epson-Ver- 
sion} 

program Print; 

uses TurtleGraphics, SuperDump; 
const ESC = 27; 


var CtrlBlock : CtrlBlk; 

DumpParams : Dumptype; 

S : String; 

Bytes : integer; 

begin {Print} 

Initturtle; 
moveto (0, 0); 
pencolor (white); 
moveto (279, 191); 
moveto (0, 191); 
moveto (0, 0); 

SetDefault (DumpParams); 

DumpParams.CtrlAdr := Adr (CtrlBlock); 
GetGrafBytes (DumpParams, Bytes, S); 

with CtrlBlock do {EPSON} 
begin 

Pinit := '-3-'; 

Pline := '-K— 

Plfl := '-J-'; 

Pexit := '-2'; 

Pinit [1] := ehr (ESC); 

Pinit [3] := ehr (23); 

Pline [1] := ehr (ESC); 

Pline [3] := ehr (Bytes mod 256); 

Pline [4] := ehr (Bytes div 256); 

Plfl [1] ;= ehr (ESC); 

Plfl [3] := ehr (1); 

Pexit [1] := ehr (ESC); 
end; {with} 

Dump {DumpParams) 
end {Print}. 


{Listing 3: Program Print, imagewriter- 
Version} 

program Print; {Imagewriter-Version} 
uses TurtleGraphics, SuperDump; 

const ESC = 27; 

var CtrlBlock : CtrlBlk; 

DumpParams : Dumptype; 

S : String; 

Bytes : integer; 

begin {Print} 

Initturtle; 
moveto (0, 0); 
pencolor (white); 
moveto (279, 191); 
moveto (0, 191); 
moveto (0, 0); 

SetDefault (DumpParams); 

DumpParams.CtrlAdr := Adr (CtrlBlock); 

DumpParams.Needle := 1; 

DumpParams.Comptype := 1; {fuer Apple Ile mit SSC} 
{DumpParams.Comptype := 2; {fuer Apple IIc mit SSC} } 
GetGrafBytes (DumpParams, Bytes, S); 

with CtrlBlock do {Imagewriter} 
begin 

Pinit := '-T16->'; 

Pline := concat ('-n-G', S); 

Plfl := "; 

Pexit := '-<-A': 

Pinit [1] := ehr (ESC); 

Pinit [5] := ehr (ESC); 

Pline [1] 7^ ehr (ESC); 

Pline [3] ;= ehr (ESC); 

Pexit [1] ehr (ESC); 

Pexit [3] ;= ehr (ESC); 
end; {with} 

Dump (DumpParams) 
end {Print}. 
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Gelegenheitsanzeigen 

Sie können unter dieser 
Rubrik zu einem besonders 
günstigen Preis 

• Ihre Hardware und 
Software verkaufen 

• Ihre Hard- und Software 
suchen 

• Kontakte knüpfen und 
vieles mehr 

Musteranzeige privat 

1 Druckzeile ä 32 Buch¬ 
staben nur DM 5,50 
zuzügl. ges. MwSt. 
Mindestens 2 Druckzeilen 
Beispiel: 

Verkaufe neuwertigen Typenrad¬ 
drucker mit Appie-Interface. 

Preis auf Anfrage. Tel. 007 

nur DM 18,81 inkl. MwSt. 


Musteranzeige gewerblich 

1 Druckzeile ä 32 Buch¬ 
staben nur DM 11,- zuzügl. 
ges. MwSt. Mindestens 

2 Druckzeilen 
Beispiel: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple II plus 
16 Funktionstasten und separatem 
Ziffernblock. 

Fa. Keyboard & Co. 


nur DM 62,70 inkl. MwSt. 
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Bitte jeweils 32 Buchstaben pro Zeile—einschließlich Satzzeichen und Wort¬ 
zwischenräume. Bitte Absender nicht vergessen. Mindestens 2 Zeilen. 
Chiffregebühr DM 6 - zuzügl. MwSt. 
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Bei Angeboten: Ich bestätige, daß ich alle 
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von Ulrich Stiehl 

1. Kinderkrankheiten 

Nachdem ich mich nun seit mehreren Wochen 
mit der Version 2.0 von Kyan-Pascal befaßt 
habe, kann ich nicht umhin, auf einige Unzu¬ 
länglichkeiten hinzuweisen. Berücksichtigt man, 
daß man für ca. DM 170,- einen ca. 420 Seiten 
dicken Ordner sowie 2 beidseitig bespielte Dis¬ 
ketten mit dem eigentlichen Kyan-Pascal, dem 
Kix-System und dem kompletten ProDOS 
(PRODOS 1.1.1 einschließlich BASIC,SYSTEM 
1.1) erhält, welch letzteres allein ca. DM 170,- 
kostet, dann leuchtet ein, daß man viel Ware 
fürs Geld bekommt, insbesondere wenn man an 
Apple-UCSD-Pascal denkt, das nach wie vor 
ca. DM 900,- kostet. Turbo-Pascal 3.0 muß man 
gesondert sehen, denn es kostet zwar mit ca. 
DM 280,- nur ca. DM 100,- mehr als Kyan- 
Pascal 2.0, doch muß man die Z80-Karte mit 
CP/M für ca. DM 1000,- gesondert erwerben. 
Kyan 2.0 ist mithin das preiswerteste Pascal- 
System für den Apple II. Bei der nachfolgenden 
Kritik muß man also stets im Auge behalten, daß 
man von einem derart günstigen Pascal-System 
keine Wunder erwarten kann. 

Der in vielerlei Hinsicht professionelle Eindruck, 
den Kyan-Pascal 2.0 hinterläßt, wird durch eine 
Reihe von elementaren Schlampereien getrübt. 
Die Kyan-Entwickler kommen mir manchmal vor 
wie hervorragende Dichter, die der Recht¬ 


schreibung entraten. Bei dem Vers 
The seed you sow 
another reaps, 
the wealth you find 
another keeps 

sind Form und Inhalt in Harmonie. Überspitzt 

formuliert, hätten die Kyan-Leute hier gedichtet 

The seed you 

though another reaps, 

the Wells you find 

another keeps 

womit der Spruch völlig entstellt worden wäre. 

1.1. Benutzerkomfort 

Der Benutzerkomfort von Kyan-Pascal läßt 
manches zu wünschen übrig. Einige Beispiele: 

- Der Editor ED nimmt korrekterweise nur Text¬ 
files an, doch den Modulen PC und AS kann 
man auch Binärfiles anbieten, womit natürlich 
nur Schrott compiliert bzw. assembliert wird. Es 
hätte nur weniger Bytes bedurft, um diesen 
Fehler über die ohnehin benötigte Get-File-In- 
fo-Routine abzufangen. 

- Der Assembler AS läßt eine Korrektur zu, 
wenn man sich vertippt hat, die Moduls ED und 
PC hingegen nicht. Gibt man z.B. 

PC — 

ein^ dann wird erst der immerhin 55 Blöcke 
umfassende Pascal-Compiler eingeladen und 
sodann prompt wieder verlassen. Das gleiche 
gilt für alle Kix-Module. Ich verkenne nicht, daß 
etwa CP/M dieselben Schwächen hat, z.B. bei 


der Eingabe von 
PIP — 

Doch wenn man bedenkt, daß heute bereits 
Computer wie etwa der Macintosh gebaut wer¬ 
den, die selbst Lesebehinderte auf Bedie¬ 
nungsfehleraufmerksam machen können, dann 
scheint ein etwas größerer Komfort beim Error- 
Handling angebracht. Bei den nicht gerade 
kompakten Kyan-Modulen müßte hierfür noch 
Platz sein. 

1.2. Apple-Versionen 

Es steht außer Zweifel, daß Kyan-Pascal 2.0 vor 
dem Verkauf nicht auf den angegebenen Gerä¬ 
tekonfigurationen getestet worden ist. Einige 
Beispiele: 

- Jedermann außer den Kyan-Entwicklern weiß, 
daß eine Videx-Karte keinen Home-Befehl (JSR 
$FC58) akzeptiert, sondern statt dessen CtrI-L 
verlangt. Folglich sehen Apple-Il-Besitzer mit 
einer Videx-Karte gelegentlich Schrott auf dem 
Monitor, weil der Bildschirm nicht gelöscht wird. 
Die Firma Apple selbst kümmert sich zwar auch 
nicht um CtrI-L, wie jeder Videx-Besitzer nach¬ 
prüfen kann, wenn er unter dem BASIC.SY¬ 
STEM den BYE-Befehl aufruft, doch dies steht 
auf einem anderen Blatt. 

- An Apple-Il-Besitzer ohne Kleinschreib-Um- 
rüstsatz wurde nicht gedacht, denn alle Menü- 
Texte erscheinen in Kleinschreibung. 

- Verschiedene Kix-Module, z.B. LPR, kann 
man, wenn eine Datei nicht existiert, nurverlas- 
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APPLE & CP/M-80 & MS-DOS 
SOFTWARE & HARDWARE 

z. B. lür APPLE II und Kompatible 

Wir liefern die RAM-Karte (AE) für den Apple Ile mit max, 3 MB 


(Appleworks mit mehr als 2 MB)! 64-K-Ausf. ... .DM 650- 
Spee Demon 3.56 MHz Coproz, für ll+/e (McT^ ... DM 700,- 

Anpassung für APPLEWORKS 1 2 au! dem ll+/e 
Original APPLE oder mit externer Tastatur in deutsch 
für SATURN 128K und IBS AP 33 1 MB!! ... DM 170,- 

UPC-Programmer-Card 2716-128 komfortabel . . . .DM 580.- 

72 I/O Port Card programmierbar DOS-(-CP/M ... .DM 350,- 

AD 16 Ch, 12 Bit. schnell! (Applied Eng.) , . DM 1150,- 

PKASO/U-Printer-Karle (IS) . .. DM 550,- 

CP/M-Plus-Card, 6 MHz, 64K, CP/M 3.0 (ALS) .... DM1150,- 

Timemaster II H. 0., die Uhrenkar1e!(AE} ...... DM 540.- 

ELF kompl. Statistik-Software (TWG) ........ DM 800,- 

Prime-Piotter-Grafik-Software (Primesoft) .... DM 900,- 

Z-RAM 512 K für APPLE llc (AE) .. DM 1250,- 

2 . B. für IBM und Kompatible 

APPLE Turnover (Vertex) Lesen/Schreiben von Apple Disks 

im IBM PC & Komp. ..DM 1200,- 

XENO-COPY plus (Vertex) Lesen/Schreiben div, 

CP/M & MS-DOS Formate im IBM ...DM 600,- 

ELF PC kompl. Statistik Software (TWG) , . . , DM 800,- 

PROM Blasler 28-Pin (Apparat Inc).DM 620,- 

Z.B. für alle Systeme 

Prinlerchanger 3 parall Drucker auf 1 Micro 

inkl. Kabel/Neuteil (Keyzone) . , ...... .DM 570,- 

Printersharer 3 Micros auf 1 parall Drucker 

inkl Kabel/Netzteil (Keyzone) DM 460,- 

Shufflebuffer 64K (IS) ■. ... DM 1250,- 


Wir sind Import-Spezialisten und bieten Ihnen eine große Auswahl an Soft¬ 
ware und Hardware bedeutender Hersteller aus den USA und England 
Informationen gegen DM 3,- in Briefmarken, 

WEISSCOMPUTER Dipl.-Psych. Karl-Heinz Weiß 
Am Wiesenhof 17, 2940 Wilhelmshaven, Tel. 04421/183179 


sen, wenn man die Esc-Taste drückt. Dies geht 
jedoch bekanntlich nicht beim Ile wegen eines 
Bugs in den ursprünglichen ROMs. Auch dies 
wurde von den Kyan-Entwicklern niemals aus¬ 
probiert. 

Aus all diesen Gründen hätte man deshalb in 
der Kyan-Anleitung klarstellen müssen, daß 
einige Module nur auf dem Apple Ile mit den 
neuen ROMs funktionieren. (Neueste Informa¬ 
tion It. Telex vom 15.5.86: Die Firma Videx 
kümmert sich jetzt selbst um die Videx-Kompa- 
tibilität.) 

1.3. Debugging 

In der Anleitung heißt es vollmundig „Kyan 
Pascal has been tested for conformance to the 
ISO Pascal Standard“. Dies stimmt nicht. Zwei 
Beispiele; 

PROGRAM CONSTBUG; 

CONST 
C = 'A'; 

BEGIN 

WRITELN (ORD(C)) 

END. 


Z SO + Card 

Die leistungsfähige und vielseitige 
Z80 Karte fui Ihren Apple II 


naiawaio . 

-(-ALS CP/M-Card- und (!) SoftCard-kompatibel. 

-^8MHz Taktfrequena (ohne Waitzyklen) - dadurch 
werden Programme bis zu 4x schneller als bis¬ 
her (2MHz Taktfrequenz im SoftCard-Modus). 

-(-Interrupts sind für die beiden Betriebsmodi der 
Z80-I- Card getrennt zu- und abschaltbar. 

Software : 

-»-CP/M 2.20/2 23 Pseudodisktreiber, der die eigenen 
64K RAM der Z80+ Card im SoftCard-Modus nutzt 

H-CP/M-Patch generiert aus Ihrem SoftCard CP/M 
2.20 ein CP/M 2.2 für den schnellen Taktmodus 
der Z80-H Card mit überragenden Eigenschaften : 

Bis au 4x schnellerer Disk-Zugriff (Read), inte¬ 
grierte Pseudodisk mit 32/48/llOK bei einem 
Apple mit 48/64/128K RAM, Unterstützung von 
Disk-Laufwerken bis 640K an den verschiedensten 
Controllern, Unterstützung der gängigsten RAM- 
Karten als Pseudodisk, schnelle Bildschirmaus¬ 
gabe, bedienerfreundlich durch neue und erwei¬ 
terte Befehle in der Kommandoebene, 58K TPA. 

-•-Der Preis : 696.— DM (- 610,53 DM ohne Mwst) 


Uwe ZimmermanD - Miciocomputereutwicklungen 
Schwalbenstiaße 30 — 6090 Russelsheim 
Telefon : 06142 / 56 34 56 


Selbst ein Primitivtest in der Art des Programms 
KYANKURS (Peeker, Heft 2/85, S. 61 ff.), das 
jeden der Grundbefehle exemplifiziert, hätte so¬ 
fort offenbart, daß der Compiler allen Char- 
Konstanten den Wert CHR(1) zuweist. Das De¬ 
mo CONSTBUG ergibt immer 1, gleich welches 
Zeichen man C zuweist. Folglich funktioniert 
auch der CASE-Befehl mit Char-Konstanten 
nicht. WRITELN (’A’) funktioniert natürlich. Wür¬ 
de man in P.OUT an den entsprechenden Stel¬ 
len Jcw 1 durch Jcw -l- Ascii-Code der Char- 
Konstanten ersetzen, dann würde der CASE- 
Befehl später in A.OUT korrekt funktionieren. 
Der Bug liegt also am Compiler. 

PROGRAM REFBUGj 
VAR 

I,J: FILE OF INTEGER: 

BEGIN 

{Mehrfaches Rewrite wäre okay} 

REWRITE (I, ’/RAM/I'); {Ref-No 1} 

REWRITE (J. ’/RAM/J'); {Ref-No 2} 

{Mehrfaches Reset geht nicht) 

RESET (I, '/RAM/I'): (Ref-No 1} 

RESET (J, '/RAM/J’i; {Ref-No 2} 

{Hier Abbruch bei END-Routine} 

END. 

Auch diesen sog. File-Reference-Bug, der z.B. 
bei dem Programm FILEDEMOS (Peeker 3/86, 
S.44) oder dem obigen REFBUG zutage tritt, 
hätte man mit Primitivtests finden müssen. Ich 
vermute, daß der Bug in der Library LIB zu 
suchen ist. 


_I EQU 22 ;_U EQU 22 


In dem Include-File HIRES.l wurde statt _l 
fälschlicherweise _U getippt. Auch dieses Mo¬ 
dul ist folglich vor dem Verkauf von Kyan 2.0 
nicht mehr ausprobiert worden. 

Nun muß man natürlich wissen, daß auch Tur- 
bo-Pascal 2.0 und Apple-Pascal 1.1 ursprüng¬ 
lich zahlreiche Bugs aufwiesen, die erst in 
späteren Versionen nach und nach beseitigt 
wurden. So enthält etwa das Addendum zu 
Apple-Pascal 1.2 auf den Seiten 77-81 eine 
lange Liste von Fehlern, die die Apple-Pascal- 
Entwickler selbst gefunden haben, von den 
nicht-erwähnten Unzulänglichkeiten ganz zu 


schweigen (z.B. Stack-Overflow-Bug u.a.). 
Erfreulicherweise arbeitet man bereits an der 
Kyan-Version 2.0.2, die u.a. die beschriebenen 
Fehler beheben soll. 

2. Reset-Tips 

Wenn man unter Kyan-Pascal CtrI-Reset drückt, 
wird - wie auch in UCSD- und Turbo-Pascal - 
neu gebootet. Dies ist lästig, weil dadurch der 
Inhalt der 64K-RAM-Disk des Apple lle/c von 
ProDOS frisch initialisiert wird. Es bieten sich 
zwei Lösungsmöglichkeiten an: 

a) Man patcht das sog. RAM-Disk-lnitflag (s. 
„A.Schäpers, ProDOS-Analyse“, S. 297), wo¬ 
von jedoch im allgemeinen abzuraten ist. 

b) Man baut in sein Pascal-Programm die fol¬ 
gende Prozedur ein, die man im laufenden Pro¬ 
gramm e/nma/aufruft. 

PROGRAM RESETDEMO; 

VAR C:CHAR; 

(_-) 

PROCEDURE RESETVEKTOR; 

BEGIN 

#A 

JMP B00T3 
BOOTl CLD 

JSR $BF00 ;Reboot-Befehl 

DB $65 
DW B00T2 
B00T2 DB $04 

B00T3 LDA t>B00Tl ;Reset-Vektor 
STA $03F2 
LDA *<B00T1 
STA $03F3 
EOR #$A5 
STA $03F4 

# 

END; 

- —--- ^1 

BEGIN 

WRITELN ('Ctrl-Reset druecken!'); 

RESETVEKTOR; READLN (C) 

END. 

Um diese Prozedur zu verstehen, muß man 
etwas über die Restart-Routine wissen, die als 
Bestandteil des KIX.SYSTEMS in die Language- 
Card ab $D100ff. geschoben wird, wo sich zu¬ 
vor die Reboot-Routine von PRODOS befand. 
Wenn man über das ProDOS-MLI (siehe obige 
Reset-Prozedur) oder unter dem BASIC.SY¬ 
STEM überden BYE-Befehl die Reboot-Routine 
aufruft, so wird der Reset-Vektor auf $1000 
gelegt, die Reboot-Routine selbst nach $1000 
geschoben und die Eingabe eines SYS-Files 
erwartet, der dann geladen wird, z.B. der FILER 
oder das BASIC.SYSTEM. Bitte probieren Sie 
zunächst den BYE-Befehl aus, falls Sie ihn noch 
nicht kennen sollten. 

Verläßt man nun ein Kyan-Programm über die 
eigentlich erwartete Reboot-Routine, so wird in 
Wirklichkeit die Restart-Routine von $D100ff. 
nach $1000ff. geschoben. Diese Restart-Routi¬ 
ne enthält selbst ein 512 Bytes umfassendes 
Menü-Programm, das nach $BC00-$BDFF ge¬ 
schoben und über JMP $BC00 gestartet wird. 
Es erscheint dann der übliche %-Prompt, und 
man kann nun ED, PC, FILER, BASIC.SYSTEM 
usw. laden. 

Setzt man nun in einem eigenen Kyan-Pro¬ 
gramm den Reset-Vektor dergestalt, daß nach 
Ctrl-Reset scheinbar Reboot ausgeführt wird, 
so gelangt man in der geschilderten Weise wie¬ 
der zum %-Prompt, wie dies auch automatisch 
der Fall ist, wenn ein Kyan-Programm regulär 
über „END.“ verlassen wird. 


48 


Peeker 6/86 






























Zusammenfassung 

(1) Das KIX.SYSTEM verschiebt Restart nach 
$D100ff. und entfernt damit das ursprüngliche 
Reboot. 

(2) Der MLI-Reboot-Befehl setzt den Reset- 
Vektor auf $1000 und verschiebt Restart nach 
$ 1000 . 

(3) Restart enthält das Menü-Programm und 
verschiebt es nach $BC00-$BDFF und springt 
dann selbst nach $BC00, womit der %-Prompt 
erscheint. 

(a) Ein auf den MLI-Reboot-Befehl gerichteter 
Reset-Vektor im eigenen Pascal-Programm in¬ 
itiiert nach CtrI-Reset die Routinen (2) und (3). 

(b) Drückt man jedoch danach erneut CtrI-Re¬ 
set, so wird gebootet, weil die Restart-Routine 
den Reset-Vektor zerstört. Man könnte dies pat- 
chen, wie im Kyan-Rundschreiben #2 von ei¬ 
nem Club-Mitglied angegeben wurde, doch 
funktioniert dies nur dann, wenn gerade ein 
eigenes Pascal-Programm über „END." verlas¬ 
sen worden ist. Nach PC und AS geht dies 
nicht, weil diese Programme aus unerfindlichen 
Gründen je eine Kopie vom späteren $BC00- 
$BDFF-lnhalt enthalten, der ohne die Restart- 
Routine direkt dorthin verschoben wird. PC und 
AS werden also mit JMP $BC00 verlassen. 

3. Bit-Map-Tips 

Die System-Bit-Map markiert diejenigen Pages 
(Speicherseiten), die für ProDOS tabu sind, d.h. 
in die keine Daten von Diskette geladen werden 
dürfen. Entgegen meiner ursprünglichen Ver¬ 
mutung gehört es zu den Schlampereien des 
KIX.SYSTEMS, daß es die Bit-Map nicht ändert 
oder wenigstens normalisiert, was sonst bei 
jedem SYS-Programm der Fall ist. 

Die ProDOS-Reboot-Routine würde den Spei¬ 
cher $0800-$BEFF (sowie darüber hinaus 
$0200-$03FF) automatisch freimachen, doch 
sieht die Kyan-Restart-Routine hierfür nichts 
vor. Booten Sie eine ProDOS-Systemdiskette 
mit dem BASIC.SYSTEM, legen Sie die Kix- 
Diskette ein und machen Sie dann folgendes 
Experiment: 

Ü BLOADKIX.SYSTEM,A$2000.TSYS 
Ü CALL-151 
* 1000:0 

* 1001<1000.10FFM 
*0200<1000.10FFM 
^ 2000G 
% PROGRAM 

„PROGRAM" sei ein beliebiges Programm. Sie 
erhalten nun mit Gewißheit die MLI-Fehlermel- 
dung $56 (= System-Bit-Map-Konflikt), weil 
PROGRAM versucht, LIB in den Bereich 
$9000-$BEFF einzuladen, was jedoch das MLI 
nicht zuläßt, weil die Bit-Map noch die Belegung 
des BASIC.SYSTEMS aufweist. Sie werden sich 
nun jedoch fragen, weshalb man trotzdem das 
KIX.SYSTEM vom BASIC.SYSTEM aus mit 
Ü -KIX.SYSTEM 

starten kann. Des Rätsels Lösung: Der Strich- 
Befehl normalisiert die Bit-Map, wenn er einen 
SYS-Fiie vorfindet (gilt nicht für BIN-Files usw.) 

Um nun diesen Bit-Map-Fehler zu beheben, 
verankern wir in der Kyan-Library namens 
STDLIB.S folgende Routine, wobei wir bei Be¬ 
darf gleichzeitig noch den List-off/on- und evtl, 
den Macros-off/on-Befehl elnfügen, damit der 
Assembler AS im Falle der List-Option (-L) nicht 


immer die stets gleichbleibende Library listet. 
Danach können wir jedes compilierte Kyan-Pro- 
gramm, gleichviel ob BIN- oder SYS-Fiie, vom 
BASIC.SYSTEMausmIt 
-PROGRAM 

starten, denn die Bit-Map-Normalisierung wird 
direkt vor dem Laden der Kyan-Library (LIB) 
ausgeführt. 


LST OFF ;STDLIB.S nicht listen 
„lib equ $9000 jfolgt LST OFF 

: usw. bis. 


LST ON 

;jetzt wieder listen 

MEX OFF 

;ohne Makros 

—Start Idx 
txs 

#$ff ;Programmanfang 


;Bit-Map tabu: + 

J$0400-$07FF + $BF00-$BFFF 
CLD 

LDA #0 
LDX #$59 
BM00 STA _MLI,X 
INX 

CPX #$6F 
BNE BM00 

LDA #$CF j%11001111 
STA $BF58 

LDA #$01 ;%00000001 

STA $BF6F 


;Ab hier normal weiter; 
jsr „LoadPascalLibrary 


4. Präfix-Tips 

Die Präfix-Konventionen von Kyan-Pascal dürf¬ 
ten Anfänger und Fortgeschrittene gleicherma¬ 
ßen verwirren, denn es fehlt Ihnen eine konse¬ 
quente Linie. Leider schweigt sich das Manual 
über die Präfix-Regeln aus, so daß wir etwas 
weiter ausholen müssen. Wir gehen dabei für 
unsere Erörterungen von den Prämissen aus, 
daß 

1. ein Subdirectory namens /RAM/BIN und 

2. ein momentanes Präfix (= Ersatz-Präfix = 
Default-Präfix) namens /K existieren. 

Man beachte dabei, daß /RAM/BIN keine RAM- 
Disk sein muß, denn Analoges gilt auch für 
Festplatten und Disketten mit dem Subdirectory 
/RAM/BIN, wobei jedoch /RAM ein Volume- 
Directory sein muß. Die Regeln gelten also nicht 
für /K/RAM/BIN usw. Ferner beachte man, daß 
das willkürlich gewählte Ersatz-Präfix /K auch 
z.B. /K/SUBDIR o.ä. heißen könnte, d.h. es 
muß kein Volume-Directory sein. Doch vorab 
die Präfix-Konventionen des BASIC.SYSTEMS 
unter den obigen Prämissen: 

(a) Wenn man „-STARTUP“ eingibt, so ent¬ 
spricht dies dem Befehl „-/K/STARTUP“, d.h. 
das Ersatz-Präfix wird automatisch hinzugefügt. 
Wird nun STARTUP nicht in /K gefunden, so 
erfolgt direkt die Fehlermeldung „File not 
found“: eine weitergehende Suche in anderen 
Directories findet nicht statt. 

(b) Wenn man „-/K/STARTUP" eingibt, so ist 
das Ersatz-Präfix mit dem vorgegebenen Präfix 
identisch, so daß die in (a) beschriebene 
Suchroutine initiiert wird. 

(c) Wenn man „-/RAM/BIN/STARTUP" eingibt, 
so werden alle angeschlossenen Volumes nach 
dem vorgegebenen Präfix /RAM/BIN abge¬ 
sucht, und eine Fehlermeldung erfolgt erst* 
dann, wenn /RAM/BIN in keinem Volume-Di- 
rectory enthalten ist. 


(d) Wenn man „-BIN/STARTUP“ eingibt, so 
wird das Subdirectory /K/BIN nur in /K gesucht, 
also nicht etwa zusätzlich in /RAM. 

Fazit: Ein vollständiger Pfadname, der mit „/" 
beginnt, wird in allen Volumes gesucht, ein un¬ 
vollständiger Pfadname, der nicht mit „/“ be¬ 
ginnt, dagegen nur im Ersatz-Präfix. Dabei be¬ 
zeichnen wir als Präfix-Directory dasjenige Di¬ 
rectory, das durch das vorgegebene Präfix (bei 
-/RAM/BIN/STARTUP ^ /RAM/BIN) oder das 
Ersatz-Präfix (bei -STARTUP ^ /K/) bestimmt 
ist. Den Sonderfall eines Null-Präfixes klam¬ 
mern wir hier aus, da in diesem Fall unter dem 
BASIC.SYSTEM die Ersatz-Slot/Drive-Parame- 
ter herangezogen werden. 

Nun zu den Präfix-Konventionen unter Kyan- 
Pascal: 

• Wenn man im KIX.SYSTEM-Menü ohne vor¬ 
gegebenes Präfix die Programmnamen 

% ED (steht auch für PC. AS. BASIC.SYSTEM 
usw.) 

% PROGRAM (steht für alle compilierten Kyan- 
Programme, die SYS- oder BIN-Files sein 
können) 

% KIX (steht für alle Kix-Utilities, z.B. LS usw.) 
eingibt, so werden diese Programme zunächst 
in /RAM/BIN gesucht, gleichviel ob das Ersatz- 
Präfix /RAM/BIN oder /K lautet. Werden die 
Programme im Subdirectory /RAM/BIN gefun¬ 
den, so werden sie direkt von dort gestartet. 
Werden sie jedoch dort nicht gefunden, so wer¬ 
den sie im Ersatz-Präfix-Directory /K gesucht. 
Werden sie auch dort nicht gefunden, so erfolgt 
die „File not found'‘-Fehlermeldung. 

• Wenn man m/Y vorgegebenem Präfix die Pro¬ 
grammnamen 

% /K/ED 
% /K/PROGRAM 
% /K/KIX 

eingibt, so werden die Programme direkt vom 
Directory /K gestartet, falls sie dort enthalten 
sind. Andernfalls erfolgt die „File not found"- 
Fehlermeldung, d.h. im Subdirectory /RAM/BIN 
wird in diesem Fall nicht mehr gesucht. 

4.1. ED und PROGRAM.P 

Die Programme ED usw. laden meist weitere 
Dateien nach, so daß auch für diese Dateien die 
Präfix-Konventionen zu erlernen sind. 

ED (= Kyan-Editor) lädt den spezifizierten Text¬ 
file (mit Suffix .P), also PROGRAM.P. aus dem 
Präfix-Directory nach und speichert ihn nach 
Verlassen des Editors wieder dort zurück. 

% ED PROGRAM.P 

sucht zunächst ED im Subdirectory /RAM/BIN, 
falls dort nicht gefunden, in /K; falls dort auch 
nicht gefunden -4* Fehlermeldung. Dann wird 
PROGRAM.P von /K (und nicht zuerst von 
/RAM/BIN!) zu laden versucht; falls dort nicht 
gefunden Fehlermeldung. 

% ED/K/PROGRAM.P 

sucht zunächst ED wie oben. Dann wird PRO¬ 
GRAM.P direkt von /K zu laden versucht; falls 
dort nicht gefunden ^ Fehlermeldung. 

% /K/ED /K/PROGRAM.P 
sucht ED direkt in /K und danach PROGRAM.P 
direkt in /K; falls nicht gefunden ^ Fehlermel¬ 
dung. 

Beim Verlassen des Editors überX (= Exit) wird 
PROGRAM.P in das Präfix-Directory zurückge¬ 
schrieben, falls man nicht über P (= Präfix) 
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einen anderen Pfadnamen (= Präfix-Directory 
-1- Dateinamen) spezifiziert. 

Halten wir also fest; Der erste Programmname 
nach dem „%“ wird immer zuerst in /RAM/BIN 
gesucht, falls kein Präfix mit Schrägstrich, also 
kein vollständiger Pfadname, angegeben wur¬ 
de. Dagegen wird der zweite Programmname 
nach „% “ niemals in /RAM/BIN gesucht, es sei 
denn, man würde z.B. ED /RAM/BIN/PRO¬ 
GRAM.P spezifizieren oder das Ersatz-Präfix 
wäre nicht auf /K, sondern auf /RAM/BIN einge¬ 
stellt. 

4.2, PC, P.OUT, AS, A.OUT 

PC (= Pascal-Compiler) lädt PROGRAM.P 
nach, speichert dann P.OUT im Ersatz-Präfix- 
Directory (immer dort!), lädt bzw. „chained“ 
dann den Assembler AS, der seinerseits die 
Standard-Library STDLIB.S lädt und am Schluß 
PROGRAM im Präfix-Directory oder A.OUT im 
Ersatz-Präfix-Directory (immer dort!) abspei¬ 
chert. 

% PC PROGRAM.P lädt zunächst PC von 
/RAM/BIN oder ersatzweise, d.h. falls dort nicht 
gefunden, von /K. Dann wird PROGRAM.P di¬ 
rekt von /K geladen. PC erzeugt und speichert 
jetzt P.OUT (= Assembler-Ouelltext ohne Pas- 
cal-Quelltext-Zeilen) in /K. Dann wird AS von 
/RAM/BIN oder ersatzweise von /K geladen. 
AS lädt dann STDLIB.S von /RAM/BIN oder 
ersatzweise von /K. AS erzeugt und speichert 
jetzt PROGRAM in/K. 

% /K/PC /K/PROGRAM.P lädt PC direct von /K, 
doch werden AS und STDLIB.S trotzdem zu¬ 
nächst von /RAM/BIN zu laden versucht. 
P.OUT wird in /K gespeichert. 

% /K/PC /RAM/BIN/PROGRAM.P lädt PRO¬ 
GRAM.P direkt von /RAM/BIN und speichert 
PROGRAM direkt in /RAM/BIN, jedoch P.OUT 
in /K. 

Andere Varianten 

% PC PROGRAM.P > ERRORS würde It. Ma¬ 
nual zusätzlich einen Textfile mit Compiler-Feh¬ 
lermeldungen in /K erzeugen. Dies ist jedoch 
nicht aus dem PC-Menü ersichtlich und funktio¬ 
niert deshalb bei Kyan 2.0 auch nicht. Die Slot- 
Option 

% PC PROGRAM.P >1 

ist allerdings möglich (1 = Slot 1). 

Achtung: Wenn der Pascal-Quelltext nicht das 
Suffix „.P" hat, dann wird ersatzweise A.OUT 
erzeugt, und zwar immer im Ersatz-Präfix. 

% PC /RAM/BIN/QUELL erzeugt aus dem 
Textfile QUELL nicht den Binärfile QUELL, son¬ 
dern A.QUT, und zwar nicht in /RAM/BIN, son¬ 
dern in /K, wo sich später auch P.OUT befindet. 
% PC QUELL -O QUELLOBJ erzeugt aus dem 
Quelltext QUELL den Objektcode QUELLOBJ 
in /K. 

% PC PROGRAM.P -S erzeugt P.OUT (= As- 
sembler-Quelltext mit Pascal-Quelltext-Zeilen) 
in /K. PC „chained“ nicht AS; folglich wird 
PROGRAM nicht erzeugt. Man beachte, daß 
unter Kyan-Pascal 2.0 die S-Option aus PRO¬ 
GRAM.P nicht PROGRAM.S erzeugt, wie fäl¬ 
schlicherweise im Handbuch, III/5 erwähnt wird. 
% AS P.OUT lädt AS von /RAM/BIN oder 
ersatzweise von /K, dann STDLIB.S von /RAM/ 
BIN oder ersatzweise von /K und erzeugt 
schließlich den Objektcode A.OUT in /K, 
(A.OUT ist inhaltlich mit PROGRAM identisch.) 


% AS P.OUT -O PROGRAM erzeugt anstelle 
von A.OUT in /K den Objektcode PROGRAM. 

% AS P.OUT -L >LISTING erzeugt neben 
A.OUT in /K den Textfile LISTING (Assembler- 
Quelltext -H Hexdump des Maschinenpro¬ 
gramms). Für die Bildschirmausgabe genügt 
% AS P.QUT-L 

Für die Druckerausgabe in Slot 1 lautet der 
Befehl 

% AS P.OUT -L >1 

Man beachte, daß P.OUT immer assembliert 
werden kann, gleichviel ob P.OUT über „PC 
PROGRAM.P“ oder über „PC PROGRAM.P 
-S“ erzeugt wurde. Ferner merken wir uns, daß 
P.OUT und A.OUT stets im Ersatz-Präfix ge¬ 
speichert werden. Wenn man wünscht, daß 
P.OUT in einem vorgegebenen Subdirectory 
gespeichert wird, so muß dieses Subdirectory 
zugleich Ersatz-Präfix sein. Nehmen wir an, PC 
sei in /A, PROGRAM.P sei in /B und Ersatz- 
Präfix sei /C, das auch AS und STDLIB.S ent¬ 
halte. Dann erzeugt der Befehl 
% /A/PC /B/PROGRAM.P 
P.OUT in /C und PROGRAM in /B. 

4.3. PROGRAM und LIB 

Der Quelltext STDLIB.S enthält die Makrode¬ 
finitionen für den Assembler sowie die Laderou¬ 
tine für den Objektcode LIB, der in den Spei¬ 
cher ab $9000 geladen wird und die Runtime- 
Bibliothek darstellt. LIB ist also nicht etwa der 
Objektcode von STDLIB.S, sondern enthält die 
von allen compilierten Pascal-Programmen ge¬ 
meinsam benötigten Routinen (z.B. Fließkom- 
ma-Mathematik usw.). 

Speicherorganisation 

An dieser Stelle ist ein kurzer Überblick über die 
Speicherorganisation unter Kyan 2.0 erforder¬ 
lich, da die Abbildung im Peeker, Heft 4/86, S. 
49 nur für Kyan 1.2 galt. 

• Bevor das compilierte Pascal-Programm 
(PROGRAM) geladen wird, befindet sich das 
Menü-Programm (mit %-Prompt) im Bereich 
$BC00-$BDFF, gefolgt von der ProDOS-Glo- 
bal-Page ($BF00-$BFFF). 

• Ein normales Kyan-Programm (PROGRAM) 
wird ab $0800 in den Speicher geladen und lädt 
dann seinerseits die Bibliothek LIB in den Spei¬ 
cher $9000-$BED3, also praktisch bis $BEFF, 
womit das Menü-Programm überschrieben 
wird, während die Global-Page natürlich erhal¬ 
ten bleibt. Für die Programmvariablen steht 
dann der Datenpool (= Heap) ab $8FFF abwärts 
bis zum Programmende (= LOMEM = Lowest 
Memory) zur Verfügung. Also: 

$0800-LOMEM: PROGRAM 

L0MEM-$8FFF; Pool (ab $8FFF rückwärts) 
$9000-$BEFF: LIB 
$BF00-$BFFF: Global-Page 

• Wenn zu Beginn von PROGRAM.P mit 
#A 

_USESHIRES 

• 

der Speicher der HGR-Seite 1 ($2000-$3FFF) 
für Grafik reserviert wird, dann ergibt sich fol¬ 
gende Speicherverteilung; 

$0800-$lFFF: Pool (ab $1FFF rückwärts) 
$2000-$3FFF: HGR Seite 1 
$4000-LOMEM: PROGRAM 
$9000-$BEFF: LIB 
$BF00-$BFFF: Global-Page 


• Wenn zu Beginn von PROGRAM.P mit 
#A 

.SYSTEM Fi LE 

# 

ein SYS-File anstelle eines BIN-Fiies deklariert 
wird, so berührt dies die spätere Speicherver¬ 
teilung nicht, d.h. SYS-Files sind sowohl bei 
Nicht-Grafik- als auch bei Grafik-Programmen 
möglich, wobei im letzteren Fall die Doppeide- 
klarierung 
#A 

.SYSTEM Fl LE 
.USESHIRES 
# 

erforderlich ist. SYS-Files werden jedoch zu¬ 
nächst ab $2000 in den Speicher geladen und 
dann entweder nach $0800 (= Nicht-Grafik- 
Programm) oder nach $4000 (= Grafik-Pro¬ 
gramm) verschoben. Der Vorteil eines SYS- 
Files besteht darin, daß der erste Directory- 
SYS-File (mit Suffix „.SYSTEM“) von einer Pro- 
DOS-Diskette direkt nach dem Booten gestartet 
wird. 

• Wenn man ein Pascal-Programm über 
„END.“ verläßt, so wird wieder das Menü-Pro¬ 
gramm von $D100ff. nach $BC00ff. kopiert, und 
der untere Speicher ab $0800ff. ist dann vor¬ 
übergehend frei bis zum nächsten Programm¬ 
start. 

(Die ProDOS-l/O-Puffer - für jede geöffnete 
Datei $0400 Bytes - liegen übrigens im 
Datenpool, und zwar offenbar stets ab LOMEM 
modulo 256 aufwärts.) 

% PROGRAM lädt PROGRAM von /RAM/BIN 
oder ersatzweise von /K und danach LIB von 
/RAM/BIN oder ersatzweise von /K. 

% /K/PROGRAM lädt PROGRAM direkt von /K 
und danach LIB von /RAM/BIN oder ersatzwei¬ 
se von /K. 

4.4. Weitere Feinheiten 

Damit haben wir die wichtigsten Präfix-Konven¬ 
tionen von Kyan-Pascal kennengelernt. In Wirk¬ 
lichkeit sind die Zusammenhänge noch viel 
komplizierter. Nehmen wir an, es existieren /K, 
/K/BIN und /RAM/BIN; 

(a) Wenn nun /K/BIN den Compiler PC enthält 
und /K den Quellcode PROGRAM.P und /K 
Ersatz-Präfix ist, dann findet der Befehl „% PC 
PROGRAM.P“ trotzdem PC in /K/BIN, nach¬ 
dem in /RAM/BIN vergeblich gesucht worden 
ist, und anschließend wird PROGRAM.P in /K 
gefunden und P.OUT sowie PROGRAM werden 
in /K gespeichert. 

(b) Wenn nun /K/BIN den Objektcode PRO¬ 
GRAM enthält und /K die Library LIB und /K 
Ersatz-Präfix ist, dann findet der Befehl „% 
PROGRAM“ zwar PROGRAM in /K/BIN, aber 
danach nicht mehr LIB in /K, obwohl das Ersatz- 
Präfix /K lautet. Erklärungsversuch: Zunächst 
wird /RAM/BIN/PROGRAM gesucht; Suche er¬ 
folglos. Dann wird /RAM abgehackt und durch 
/K ersetzt, womit /K/BIN/PROGRAM entsteht. 
Nun wird /K/BIN/PROGRAM mit Erfolg ge¬ 
sucht, aber das Ersatz-Präfix heißt jetzt für Ky¬ 
an-Pascal /K/BIN, und in /K/BIN ist LIB nicht 
enthalten. 

All dies ist für den Anfänger natürlich völlig 
undurchsichtig. Aber es geht noch weiter. Wir 
haben bislang unterstellt, daß ED, PC, AS, 
PROGRAM usw. automatisch zunächst in 
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/RAM/BIN gesucht werden. Dies trifft jedoch 
nur dann zu, wenn die Speicherstelle $BF98 in 
der Global-Page (sog. Machine-Identification- 
Code) einen 128K-Apple ausweist (= Apple Ile 
mit 64K-Karte oder llc). Bei einem Apple Ile 
ohne 64K-Karte oder einem Apple II+ wird 
/RAM/BIN nicht berücksichtigt, selbst wenn ei- 
'ne große RAM-Karte oder gar eine Festplatte 
ein Subdirectory /RAM/BIN aufweisen. Daraus 
ergeben sich zwei Manipulationsmöglichkeiten: 

(a) Wenn man als Besitzer eines Apple II + mit 
RAM-Karte oder Festplatte darauf Wert legt, daß 
ein Subdirectory namens /RAM/BIN direkt an¬ 
gesprochen wird, so setze man Bit 4 von 
$BF98. Bei einem ll-F mit 80-Zeichenkarte und 
ohne Flardware-Uhr lautet das Byte dann $B2. 

(b) Wenn man als Besitzer eines Apple Ile mit 
64K-Karte wegen einer Festplatte o.ä. nicht will, 
daß das Subdirectory /RAM/BIN der 64K-RAM- 
Karte angesprochen wird, so lösche man Bit 4 
von $BF98. Bei einem Ile mit 80-Zeichenkarte 
und ohne Flardware-Uhr lautet das Byte dann 
$A2. Vorteil: Durch die Suche nach /RAM/BIN 
geht unnötig viel Zeit verloren. Wenn man /RAM 
in /REM umbenennt, merkt man dies sehr deut¬ 
lich, denn dann werden alle Volumes vergeblich 
nach /RAM abgesucht. 

5. Compiler-Tips 

Viele besitzen weder eine große RAM-Karte 
noch eine Festplatte, sondern müssen mit ei¬ 
nem einzigen Laufwerk und evtl, einer 64K- 
RAM-Karte vorlieb nehmen. Wie man unter die¬ 
sen Umständen trotzdem vernünftig arbeiten 
und sogar die Compilierungs- und Assemblie¬ 
rungszeiten unter Kyan-Pascal um über 50% 
reduzieren kann, werde ich Ihnen jetzt zeigen. 

Variante 1 

Besitzer eines Apple \\+ oder eines Ile ohne 
64K-Karte stellen sich folgende 140K-Arbeits- 
diskette zusammen: 

/RAM 
DIR BIN 
/RAM/BIN 

SYS KIX.SYSTEM 

BIN PC 

BIN AS 

TXT STDLIB.S 

BIN ED 

BIN LIB 

BIN EID 

TXT PROGRAM.P 

BIN PROGRAM 

TXT P.OUT 

(a) Booten Sie von einer ProDOS-Systemdis- 
kette, z.B. von Kyan-Disk 2, Seite 2. 

(b) Legen Sie die Arbeitsdiskette ein, setzen 
Sie das Präfix mit 

PREFIX/RAM/BIN 

auf das Subdirectory und starten Sie dann das 

KIX.SYSTEM mit 

-KIX.SYSTEM 

Für die Arbeitsdateien PROGRAM.P usw. blei¬ 
ben dann noch über 100 Blöcke frei, und beim 
Compilieren und Assemblieren wird direkt auf 
das Subdirectory /RAM/BIN zugegriffen. 

Zu Testzwecken wurde mit dieser Konfiguration 
ein bestimmtes Programm mit 
% PC PROGRAM.P 

compiliert, wobei sich die Compilierungs- und 
Assemblierungszeit auf fast genau 100s (= 
100%) belief. 
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Variante 2 

Zur Abschreckung wird die folgende „Lösung" 
vorgeführt, die sich automatisch dann ergibt, 
wenn man einen llc oder Ile mit 64K-Karte 
besitzt und so vorgeht, wie es das Kyan-Manual 
beschreibt. Danach bootet man die Kyan-Disk 
1, Seite 1 (mit Präfix /KYAN.PASCAL), womit 
das KIX.SYSTEM gestartet wird, das automa¬ 
tisch /RAM/BIN erzeugt und die Dateien 
STDLIB.S, AS, ED, MENU, INTRO, QUIT, KIX 
und CD in /RAM/BIN kopiert. Nehmen wir an, 
man würde jetzt die Arbeitsdiskette /K einlegen, 
die neben PC auch FID und PROGRAM.P usw. 
enthielte. Dann würde das Testprogramm mit 
dem Befehl 

% /K/PC /K/PROGRAM.P 
in ca. 85s (= 85%) compiliert, wenn man /K mit 
angibt oder das Ersatz-Präfix zuvor auf /K ein¬ 
gestellt hat und dann 
% PC PROGRAM.P 

eingibt. Das Präfix kann nicht auf /RAM/BIN 
eingestellt werden, weil dort nicht genügend 
Platz für P.OUT wäre. Entfernt man auf /RAM/ 
BIN die Dateien ED, MENU usw. und kopiert 
statt dessen PC auf /RAM/BIN, womit sich also 
PC, AS und STDLIB.S, die bei der Compilierung 
benötigt werden, in /RAM/BIN befinden, so re¬ 
duziert sich die Compilierungszeit auf ca. 82s 
(= 82%). Es nützt also nicht viel, wenn PC, AS 
und STDLIB.S in einer RAM-Disk liegen, weil 
das Einlesen dieser drei Dateien zusammen nur 
ca. 8-1 Os benötigt, wie man vom BASIC.SY¬ 
STEM aus über den BLOAD-Befehl leicht fest¬ 
stellen kann. 

Variante 3 

Nun zeigen wir eine erheblich bessere Lösung 
für Besitzer einer 64K-Karte, die die Compilie¬ 
rungszeit gegenüber Variante 2 um über 50% 
reduziert. Zu diesem Zweck legen wir folgende 
Arbeitsdiskette an: 

/K 

SYS KIX.SYSTEM 
BIN ED 
BIN LIB 
BIN PC 
BIN FID 
TXT PROGRAM,P 
BIN PROGRAM 
/K/BIN 
BIN AS 

TXT STDLIB.S 
TXT P.OUT 

(a) Booten Sie zunächst eine ProDOS-System- 
diskette, legen Sie /K ein und setzen Sie das 
Präfix mit PREFIX/K auf/K. 

(b) Starten Sie dann das KIX.SYSTEM, das in 
/K/BIN nur die Dateien AS und STDLIB.S vor¬ 
findet und diese in /RAM/BIN kopiert. 

(c) Danach setzen Sie das Präfix auf /RAM/BIN. 
Dies ist der Trick! Wenn Sie nämlich jetzt mit 
%/K/PC /K/PROGRAM.P 

compilieren, so wird P.OUT in /RAM/BIN abge¬ 
legt, jedoch PROGRAM in /K. Die meiste Zeit 
verbraucht nämlich der Compiler für das Spei¬ 
chern von P.OUT sowie der Assembler für das 
Einlesen von P.OUT, während das Laden von 
PROGRAM.P und das Speichern von PRO¬ 
GRAM nur unwesentlich verbessert werden 
können. Die Compilierungszeit reduziert sich 
dann auf sage und schreibe 41 s (= 41 %). Dies 
entspricht einer 60%igen Verbesserung gegen¬ 
über Variante 1 und einer 50%igen Verbesse¬ 


rung gegenüber Variante 2. Flinzu kommt, daß 
Variante 3 der Datensicherheit dient, denn 
P.OUT ist eine „Wegwerfdatei", während PRO¬ 
GRAM.P und PROGRAM später noch benötigt 
werden. Da die RAM-Disk zudem nur AS und 
STDLIB.S enthält, kann P.OUT dort über 70 
Blöcke groß werden. 

Die Variante 3 ist derart effizient, daß man bei¬ 
spielsweise mit der Megaboard-Festplatte nur 
noch eine Reduzierung auf 29s (= 29%) er¬ 
reicht. 

6. FID statt Kix-Utilities 

Die Kix-Utilities LS, CMP, LPR usw. sind teil¬ 
weise sehr leistungsfähig, doch nehmen sie fast 
eine ganze 140K-Diskette in Beschlag. Deshalb 
habe ich für die Kyan-Club-Mitglieder ein sehr 
kompaktes Kyan-FID (analog zum DOS-3.3- 
FID) in 3 Versionen mit insgesamt folgenden 
Befehlen entwickelt: 

(a) Quit, Online, Prefix, Catalog, Create, Delete, 
Lock, Unlock, Rename 

(b) Bsave, Bload 

(c) Copy 

FID (= Komplettversion) enthält alle Befehle. 
FID1 enthält die Befehle (a) und (c). 

FID2 enthält die Befehle (a) und (b). 

Andere Befehlskombinationen kann man sich 
anhand der Quelltexte FID.P, FIDI.P und 
F1D2.P selbst zusammenstellen. Alle Versionen 
enthalten neben dem Assemblerteil ein kleines 
Menü-Programm in Pascal. Im Gegensatz zu 
den Kix-Utilities können damit die FID-Routinen 
in eigene Pascal-Programme eingebaut wer¬ 
den. 1-Drive-Besitzer können FID1 benutzen, 
das als Objectcode nur 14 Blöcke einnimmt und 
damit auf der Arbeitsdiskette immer Platz findet. 
Nähere Informationen über FID, das nur an 
Club-Mitglieder abgegeben wird (Preis DM 
20,-), können Sie dem Club-Rundschreiben #2 
entnehmen. 

7. 80-Zeichenkarte von Ueding 

Die Firma Ueding in Menden hat uns freundlicher¬ 
weise kurzfristig eine 80-Z/Z-Karte zur Überprü¬ 
fung der Kyan-Probleme beim 11+ ausgeliehen. 
Diese Karte, die über 2 Zeichensätze mit 9 x 10- 
Matrix (mit deutlich besserem Schriftbild als 
beim Ile!) verfügt, setzt einen Monitor voraus, 
bei dem man die Bildbreite (von außen) verstel¬ 
len kann, ist nur für Slot 3 gedacht und scrollt 
recht schnell. ProDOS erkennt die Karte nicht, 
was jedoch für den Kyan-ED2 unerheblich ist. 
Verwendet man sie jedoch auf dem lie statt auf 
dem II+, so müssen vorher die Softswitches 
normalisiert werden. Es genügt der folgende 
Patch: 

#A 

STX _T 

; LDA $BF98 ;Machine-ID 
; ORA *$02 ;80-Z/Z-Bit 

; STA $BF98 ;Machine-ID 
JSR $FE89 ; IN*0 
JSR $FE93 ; PR*0 

STA $C006 ;Slot $C100ff. 

STA $C00B ;Slot $C300ff. 

JSR $C300 jUeding-Karte an 
LDX _T 

# 

Die Karte funktioniert dann mit dem Kyan-ED2, 
doch ist bei Return der Cursor nicht sichtbar. 
Die liegt jedoch an Kyan und nicht an der 
Ueding-Karte. 
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Adreßverwaltungsprogramm 

mit dBase II 


Listing des überarbeiteten Quelltextes 


von Ing. (grad.) Ernst Fischer 

Im Peeker, Heft 8/1985, S. 40-44, ist ein Adreßverwaltungspro¬ 
gramm beschrieben worden, das auf die Peeker-Sammeldiskette 
#8 aufgenommen, aber nicht als Quelltext abgedruckt worden ist. 
Da viele Leser das dBase-Programm ändern oder auf andere 


Rechner anpassen wollten, bringen wir nachfolgend den komplet¬ 
ten Quelltext einschließlich einiger kursiver Ergänzungen, die Sie 
bei Bedarf in die Disk #8 einarbeiten können. Beachten Sie, daß 
das Listing aus drucktechnischen Gründen insbesondere bei den 
SAY-Zeilen auf 65 Zeichen/Zelle umbrochen wurde; die Funk¬ 
tionsfähigkeit des Programms wird dadurch jedoch nicht berührt. 


1. AD-START.CMD 


* DO START.CMD (Startet das Adv} 

ERASE 

SET TALK OFF 

RESTORE FROM MEMORY 

STORE CHR (15) TO INVERSE 

STORE ” " TO ZGBER 

STORE F TO OK 

§23,0 SAY INVERSE 4- "ADRESSEN START" 

PI 

5 6,21 SAY "ADRESSENVERWALTUNG" 

§ 8,21 SAY "für Apple Ile ergänzt am 1.5.1986" 

§ 10,21 SAY "Autor; Ernst Fischer" 

§ 15,9 SAY "Letzter Zugriff : " + DATE +; 

" Anzahl Records : " 

I 15,68 SAY STR(R:NR,3) 

DO WHILE .NOT. OK 

§ 17,9 SAY "Bitte geben Sie das Datum ein <TT/MM/JJ>; 
"GET DATE PICTURE '99/99/99' 

READ 

IF VAL($(DATE,1,2)) > 31; 

.OR. VAL($(DATE,1,2)) < 1; 

,0R. VAL($(DATE,4,2)) > 12; 

-OR. VAL($(DATE,4,2)) < 1; 

.OR- VAL($(DATE,7,2)) < 83 
? CHR (7) 

ELSE 

STORE T TO OK 


ENDIF 

ENDDO 

ERASE 

STORE $(DATE,1,2) + " " + $(DATE,4,2) + 
TO DATUM 

SET DATE TO &DATUM 
§ 23,0 SAY INVERSE + "ADRESSEN 

" DATUM 

§ 17,5 SAY "Bitte Wasswort eingeben 
SET CONSOLE OFF 
ACCEPT ' ' TO ZGBER 

SET CONSOLE ON 
ERASE 

RELEASE OK, DATUM, DATE 
IF ZGBER <> "PEEKER" 

RELEASE ALL 
ERASE 
QUIT 
ENDIF 
DO HMENUE 


+ $(DATE,7,2); 


STAR T"+; 
" + DATE() 


* Ende von AD-START 


+ : 


2. HMENUE.CMD 


* DO HMENUE.CMD 
ERASE 

DO WHILE T 
§ 1,0 SAY "+=— 

(Hauptmenueprogramm) 





§ 2, 0 SAY "! 



§ 3, 0 SAY "! 

Hauptmenue 

1 ^ 

t 

§ 4, 0 SAY 

1 



__ i ii 


§ 5, 0 SAY "! 



§ 6, 0 SAY "! 

1.Eingabe der Personaldaten 


§ 7, 0 SAY "! 



§ 8, 0 SAY "! 

2.Verändern der Personaldaten 


§ 9, 0 SAY "! 



§ 10, 0 SAY "! 

3.Suchen nach Familienname 


§ 11, 0 SAY "! 



§ 12, 0 SAY "! 

4.Suchen nach Vornamen 


§ 13, 0 SAY "! 



§ 14, 0 SAY "! 

5.Suchen nach Bemerkungen 


§ 15, 0 SAY "! 



§ 16, 0 SAY "! 

6.Adressenaufkleber drucken 


§ 17, 0 SAY "! 



§ 18, 0 SAY "! 
en 

§ 19, 0 SAY "! 

7.Adressenlisten drucken / Adressen anschau 


§ 20, 0 SAY "! 

8.Löschen eines Datensatzes 


§ 21, 0 SAY "! 



§ 22, 0 SAY "! 

9-Ende 


§ 23, 0 SAY 






STORE F TO OK 

DO WHILE .NOT.OK 
SET CONSOLE OFF 
WAIT TO ANTW 

SET CONSOLE ON 
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IF NOT ANTW$ '123456789' 
? CHR(7) 

ELSE 

STORE T TO OK 

ENDIF 


ENDDO 


DO OASE 
GASE 

ANTff=■1' 

DO 

AUFNAHME 

GASE 

ANTW='2' 

DO 

EDITFNAM 

GASE 

ANTW='3' 

DO 

SUCHFNAM 

GASE 

ANTW='4' 

DO 

SUCHVNAM 

GASE 

ANTW=■5' 

DO 

SUCHBEME 

GASE 

ANTW='6' 

DO 

SCHREIBA 

GASE 

ANTW='7’ 

DO 

SCHREIBE 

GASE 

ANTW='8' 

DO 

LOESCH 

GASE 

ANTW='9' 


RELEASE ALL 
ERASE 

USE B;ADRESSEN 
GO BOTTOM 
STORE + TO R;NR 
STORE DATEO TO DATE 
SAVE TO MEMORY 
CLEAR 
CANCEL 
ENDCASE 
ENDDO 

# Ende von HMENUE.CMD 


3. AUFNAHME.CMD 


* DO AUFNAHME,CMD (Programm zur Aufnahme der Daten) 

ERASE 

SET TALK OFF 

USE B:ADRESSEN 

GO BOTTOM 

STORE 'J' TO ANTW 

DO WHILE !(ANTW) ='J' 

STORE ’ ' TO ANTW 
APPEND BLANK 
REPLACE NAT WITH 'D' 

DO AUFMASKE 
ENDDO 
ERASE 

§ 12,5 SAY 'Bitte keine Eingaben machen,Es wird eine Indexdatei; 
angelegt.' 

INDEX ON FAM TO ALPHA 
INDEX ON VOR TO BETA 
INDEX ON VORE TO GAMA 
CLEAR 
RETURN 

* Ende von DO AUFNAHME 


4. AUFMASKE.CMD 


* AUFMASKE.CMD (Maske zur Datenaufnahme) 
ERASE 

§ 1, 0 SAY “+ 


§ 2,0 SAY "! 


§ 3, 0 SAY "! Bitte geben Sie die Daten für das Adressregi; 

Ster ein... J" 

§ 4, 0 SAY 


§ 

5, 0 

SAY 

"! Fam.Name' 

§ 

5,14 

GET 

fam 

§ 

5,34 

SAY 

"Vorname" 

§ 

5,41 

GET 

vor 

§ 

5,56 

SAY 

"Geb.Datum" 

§ 

5,65 

GET 

gebd 

§ 

5,79 

SAY 

II111 

§ 

6, 0 

SAY 

"! 

§ 

7, 0 

SAY 

"! Ehefrau.. 

§ 

7,41 

GET 

vore 

§ 

7,56 

SAY 

"Geb.Datum" 

§ 

7,65 

GET 

gebde 


Vorname" 


§ 7,79 

SAY 

11 t II 

§ 8, 0 

SAY 

" ! 

1 II 

§ 9. 0 

SAY 

l 

"! PLZ" 

§9,9 

GET 

plz 

§ 9,16 

SAY 

"Wohnort" 

§ 9,23 

GET 

ort 

§ 9,40 

SAY 

"Straße u.Nr." 

§ 9,52 

GET 

str 

§ 9,79 

SAY 

II j ti 

§ 10, 0 

SAY 

" ! * \ 

§ 11, 0 

SAY 

"! Land (Intern.KFZ-Zeichen als Abkürz.)" 

§ 11,43 

GET 

nat 

§ 11,79 

SAY 

II j tt 

§ 12, 0 

SAY 

"+-- 

§ 13, 0 

SAY 

"! Telefon Priv, Vorwahl" 

1 13,27 

GET 

vwp 

§ 13,35 

SAY 

"Rufnr," 

§ 13,41 

GET 

tnrp 

§ 13,49 

SAY 

"Auslandsvorwahl" 

§ 13,64 

GET 

vwal 

§ 13,79 

SAY 

" !" 

§ 14, 0 

SAY 

" ■ ^ 

§ 15, 0 

SAY 

"! Telefon Die. Vorwahl" 

§ 15,27 

GET 

vwd 

§ 15,35 

SAY 

"Rufnr." 

§ 15,41 

GET 

tnrd 

§ 15,79 

SAY 

M j It 

§ 16, 0 

SAY 

" ! ; 

§ 17, 0 

SAY 

"! Ehefrau... Telefon Dienstlich Vorwahl" 

§ 17,43 

GET 

vwde 

§ 17,54 

SAY 

"Rufnr," 

§ 17,60 

GET 

tnrde 

§ 17,79 

SAY 

II 1 tr 

§ 18, 0 

SAY 

«+— ... --' 







§ 19, 0 

SAY 


§ 19,15 

GET 

h&sb. 

§ 19,79 

SAY 

'■ \" 

§ 20, 0 SAY 

"+-. 

§ 21, 0 

SAY 

"! Weitere Eintragungen ? (J/N)" 

§ 21,79 

SAY 


§ 22, 0 

SAY 

- 


READ 

RETURN 



* Ende von DO AUFMASKE 

5. AUSMASKE.CMD 

* AUSMASKE.CMD (Gibt die gespeicherten Daten einer Person aus) 

ERASE 
§ 1, 0 

SAY 

^- . 





§ 2, 0 SAY 

"! Daten der gesuchten Person... ; 

§ 3.0 

SAY 





§ 4, 0 

SAY 

"! Fam Name;" 

§ 4,15 

SAY 

fam 

5 4,35 

SAY 

"Vorname:" 

§ 4,43 

SAY 

vor 

§ 4,58 

SAY 

"Geb.Datum:" 

§ 4,68 

SAY 

gebd 

1 4,79 

SAY 

tr 1 II 

§ 5, 0 

SAY 

" ! 

§ 6, 0 

SAY 

"! Ehefrau... VorhiJiiio:" 

S 6,43 

SAY 

vore 

§ 6,58 

SAY 

"Geb.Datum:" 

§ 6,68 

SAY 

gebde 

§ 6,79 

SAY 

n j II 

% 7, 0 

SAY 

" ' ^ r 

§ 8, 0 

SAY 

"! PLZ:" 

§ 8,10 

SAY 

plz 

§ 8,17 

SAY 

"Wohnort:" 

§ 8,25 

SAY 

ort 

§ 8,42 

SAY 

"Straße u.Nr.;" 

§ 8,55 

SAY 

str 

§ 8,79 

SAY 

ir [ II 

§ 9, 0 

SAY 

" ! 

1" 
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§ 10, 0 SAY "! Land (Intern.KFZ-Zeichen als Abkürz.):" 
§ 10,44 SAY nat 
§ 10,79 SAY "!" 

§ 11, 0 SAY "-K-------- 

_h" 

§ 12, 0 SAY "! Telefon Priv. Vorwahl;" 

I 12,28 SAY vwp 
§ 12,36 SAY "Rufnr. 

§ 12.43 SAY tnrp 
§ 12,51 SAY "Auslandsvorwahl:" 

§ 12,67 SAY vwal 
§ 12,79 SAY "!" 
jg 13, 0 SAY "! 

I" 

§ 14, 0 SAY "! Telefon Die. Vorwahl:" 

§ 14,28 SAY vwd 
§ 14,36 SAY "Rufnr. 

§ 14,43 SAY tnrd 
§ 14,79 SAY "!" 

§ 15, 0 SAY "! 

!" 

§ 16. 0 SAY "! Ehefrau... Telefon Dienstlich Vorwahl;" 
§ 16,44 SAY vwde 
§ 16,55 SAY "Rufnr.:" 

§ 16,62 SAY tnrde 
§ 16,79 SAY "!" 

§ 17, 0 SAY "H---- 

-h" 

§ 18, 0 SAY "! Bemerkung:" 

§ 18,16 SAY bem 
§ 18,79 SAY "!" 

§ 19. 0 SAY "H--------- 

_—-——k" 

§ 20, 0 SAY "1 Ist dies die gesuchte Person (J/N)" 

§ 20,40 GET GP 
§ 20,79 SAY "!" 

§ 21, 0 SAY 


READ 

RETURN 

* Ende von DO AUSMASKE.CMD 


6. EDITFNAM.CMD 


* EDITFNAM.CMD (VERÄNDERT DIE PERSONALDATEN) 

SET TALK OFF 
STORE 'J' TO ANTW 
DO WHILE !(ANTW)='J' 

USE B:ADRESSEN INDEX ALPHA 

STORE ' ' TO ANTW 

ERASE 

§ 4,26 SAY 'Verändern von Personaldaten' 

§ 5,26 SAY ' 

? 

9 

ACCEPT 'Familienname der gesuchten Person ^ TO MFAM 

9 

ACCEPT 'Vornamen der gesuchten Person ' TO MVOR 
FIND &MFAM 
IF <> 0 

STORE # TO R:NR 
ENDIF 
DO SUCH 
IF ENDE 
RETURN 
ENDIF 

USE B:ADRESSEN 
GO R:NR 
IF MVOR =' ' 

LOCATE FOR FAM=MFAM 
ELSE 

LOCATE FOR FAM=MFAM,AND.V0R=MV0R 
ENDIF 

STORE FAM TO TFAM 
STÖRE VOR TO TVOR 
STORE VORE TO TVORE 
DO AUFMASKE 
STORE FAM TO TIFAM 
STORE VOR TO TIVOR 
STORE VORE TO TIVORE 
IF TIFAM <> TFAM 

? ' Einen Moment bitte . - . 

Aktualisierung der Fam-Indexdatei)' 

INDEX ON FAM TO ALPHA 
ENDIF 

IF TIVOR <> TVOR 

? ' Einen Momen bitte . - . 

(Aktualisierung der Vornam-Indexdatei)' 

INDEX ON VOR TO BETA 
ENDIF 


IF TIVORE <> TVORE 

? ' Einen Afoment bitte... 

(Aktualisierung der Vornam.Ehefr-IndexdateiV 
INDEX ON VORE TO GAMMA 
ENDIF 
ENDDO 

RELEASE TFAM, TIFAM, TVOR, TIVOR, TVORE, TIVORE 
RETURN 

* Ende von EDITFNAM.CMD 


7. SUCHFNAM.CMD 

* SUCHFNAM.CMD (Sucht den Familiennamen) 

USE B:ADRESSEN INDEX ALPHA 

SET TALK OFF 
ERASE 

§ 4,10 SAY 'Datenausgabe für einen gewünschten Familiennamen' 

§ 5,10 SAY ' 

? 

9 

ACCEPT 'Familienname der gesuchten Person ' TO MFAM 
FIND &MFAM 
IF # <> 0 

STORE # TO R:NR 
ENDIF 
DO SUCH 
IF ENDE 
RETURN 
ENDIF 

USE B:ADRESSEN 
GO R:NR 

LOCATE FOR FAM=MFAM 
STORE ' ' TO GP 
DO AUSMASKE 
DO WHILE !(GP)='N' 

STORE ' ' TO GP 
CONTINUE 
IF EOF 
ERASE 
§ 12,0 

? 'Weitere Personen, die ',MFAM,' heißen,gibt es nicht !' 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 
RETURN 
ENDIF 

DO AUSMASKE 
ENDDO 
RETURN 

* Ende von DO SUCHFNAM CMD 


8. SUCHVNAM.CMD 

* SUCHVNAM.CMD (Sucht den Vornamen) 

USE B:ADRESSEN INDEX BETA 
SET TALK OFF 
ERASE 

§ 4,12 SAY 'Datenausgabe für einen gewünschten Vornamen' 

§ 5,12 SAY ' * 

? 

? 

ACCEPT 'Vorname der gesuchten Person ' TO MVOR 
FIND &MVOR 
IF #=0 

USE B:ADRESSEN INDEX GAMA 
FIND &MV0R 
ENDIF 

DO WHILE #=0 
ERASE 
§ 12,0 

?' Den Vornamen ',MV0R,' gibt es nicht !' 

? 

?' Bitte Eingabe wiederholen oder mit Return abbrechen I 
? 

9 

ACCEPT ' Vorname der gesuchten Person ' TO MVOR 
IF MVOR =' ' 

RETURN 

ENDIF 

USE B:ADRESSEN INDEX BETA 
FIND &MV0R 
IF 4=0 

USE B:ADRESSEN INDEX GAMA 
FIND &MV0R 
ENDIF 
ENDDO 
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IF + <> 0 

STORE # TO R:NR 
ENDIF 

USE B:ADRESSEN 
GO R;NR 

LOCATE FOR (VOR=MVOR.OR.VORE=MVOR) 

STORE ' ' TO GP 
DO AUSMASKE 
DO WHILE !{GP)='N' 

STORE ' ■ TO GP 
CONTINUE 
IF EOF 
ERASE 
§ 12,0 

? 'Weitere Personen, die ',MVOR,' heißen,gibt es nicht !' 

SET CONSOLE OFF 

WAIT 

SET GONSOLE ON 
RETURN 
ENDIF 

DO AUSMASKE 
ENDDO 

RELEASE ALL 
RETURN 

* Ende von DO SUCHVNAM.CMD 


9. SUCHBEME.CMD 


* SUCHBEME.CMD {Sucht nach Bemerkungen) 

USE B;ADRESSEN 

SET TALK OFF 
ERASE 

§ 4,8 SAY 'Datenausgabe für eine gewünschte Bemerkung' 

§ 5,8 SAY ' 

? 

7 

ACCEPT 'Bemerkung, nach der gesucht wird ' TO MFAM 
LOCATE FOR MFAM$BEM 
DO WHILE EOF 
ERASE 
§ 12.0 

?' Die Bemerkung ',MFAM,' gibt es nicht !' 

? 

?' Bitte Eingabe wiederholen oder mit Return abrechen! 
? 

7 

ACCEPT ' Bemerkung, nach der gesucht wird ' TO MFAM 
IF MFAM =' ' 

RETURN 
ENDIF 
GO TOP 

LOCATE FOR MFAM$BEM 
ENDDO 

STORE ' ' TO GP 
DO AUSMASKE 
DO WHILE I(GP)='N' 

STORE ’ ' TO GP 
CONTINUE 
IF EOF 
ERASE 
§ 12,0 

? 'Weitere Bemerkungen mit ',MFAM,' gibt es nicht !' 

SET CONSOLE OFF 
WAIT 

SET CONSOLE ON 
RETURN 
ENDIF 

DO AUSMASKE 
ENDDO 

RELEASE ALL 
RETURN 

* Ende von SUCHBEME.CMD 


10. SCHREIBA.CMD 


* SCHREIBA.CMD(Schreibt Adressenaufkleber) 

USE B:ADRESSEN INDEX ALPHA 
SET TALK OFF 
ERASE 

§ 4,17 SAY 'Anfertigen von Adressenaufklebern' 

§ 5,17 SAY ' 

? 

9 

ACCEPT 'Familienname der gesuchten Person ' TO MFAM 
FIND &MFAM 
IF #<>0 


STORE # TO R:NR 
ENDIF 
DO SUCH 
IF ENDE 
RETURN 
ENDIF 

USE B;ADRESSEN 
GO R:NR 

LOCATE FOR FAM=MFAM 
ERASE 

STORE ■ ' TO ANR 
§ 4,35 SAY ’Anredemenü' 

§ 5,35 SAY • 

§ 7,5 SAY '1. Keine Anrede ' 

§ 9,5 SAY '2.Keine Anrede bei Ehefrau' 

§ 11,5 SAY '3.Anrede "Herrn"' 

§ 13,5 SAY '4.Anrede "Frau" bei Verheirateten' 

§ 15,5 SAY '5.Anrede "Herr+Frau"' 

§ 17,5 SAY '6.Anrede "Familie"' 

§ 19,5 SAY '7.Anrede "Frau" bei Alleinstehenden' 

§21,5 SAY '8.Sonstige Anrede' 

§ 23,0 SAY 'Bitte wählen Sie ' 

STORE F TO OK 
DO WHILE ,NOT.OK 
SET CONSOLE OFF 
WAIT TO ANR 
SET CONSOLE ON 
IF ,NOT,ANR$ '12345678' 

? CHR(7) 

ELSE 

STORE T TO OK 
ENDIF 
ENDDO 
DO CASE 

CASE ANR='l' 

STORE ' ' TO ANREDE 
CASE ANR='2' 

STORE ' ' TO ANREDE 
CASE ANR='3' 

STORE 'Herrn' TO ANREDE 
CASE ANR='4' ,OR, ANR='7' 

STORE 'Frau' TO ANREDE 
CASE ANR='5' 

STORE 'Herr u. Frau' TO ANREDE 
CASE ANR='6' 

STORE 'Farn.' TO ANREDE 
CASE ANR='8' 

ERASE 

§ 12,0 

ACCEPT 'Welche Anrede wird gewünscht?' TO ANREDE 
ENDCASE 

STORE 'N' TO GP 
DO WHILE I(GP)<>'J' 

ERASE 

§ 12,20 SAY ANREDE 
STORE ANREDE TO AN 
DO CASE 

CASE ANR='l',OR.ANR='3'.OR . ANR='6' . OR,ANR ='7'. 0R,ANR='8’ 
STORE (TRIM(V0R)+' '+FAM) TO NA 
§ 13,20 SAY NA 
CASE ANR='2'.OR.ANR='4' 

STORE (TRIM(V0RE)+' '+FAM) TO NA 
§ 13,20 SAY NA 
CASE ANR='5' 

STORE (TRIM(VOR)+' + '■l-TRIM{VORE) + ' ’+FAM) TO NA 
§ 13,20 SAY NA 
ENDCASE 

§ 14.20 SAY STR 
IF NAT ='D' 

STORE (PLZ+' '+0RT) TO ORTl 
§ 16.20 SAY ORTl 
ELSE 

STORE (NAT+' '+PLZ-t-' '+0RT) TO ORTl 
§ 16,20 SAY ORTl 
ENDIF 

STORE ' ' TO GP 

§ 20,0 SAY 'Ist dies die gesuchte Person? ' 

§ 22,0 SAY 'J)a W)eitersuchen oder R)eturn' GET GP 

READ 

DO CASE 

CASE !(GP)='W' 

CONTINUE 
IF EOF 
ERASE 
§ 12,0 

? 'Weitere Personen, die ',MFAM,' heißen,gibt es nicht \* 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 
RETURN 
ENDIF 
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GASE !(GP)='R' 


STORE LIN+1 TO LIN 

RETURN 


GASE VOR <> ' 

GASE !(GP}='J’ 


? TRIM(VOR)+' '+FAM 

ENDCASE 


STORE LIN+1 TO LIN 

ENDDO 


GASE VOR = ' 

ERASE 


? FAM 

§ 5,0 SAY 'Bitte den Drucker bereit machen und die ; 


STORE LIN+1 TO LIN 

Adressaufkleber ' 


ENDCASE 

§ 7,0 SAY 'einspannen!' 


IF STR <> ' * 

STORE ’ ' TO ANZ 


? STR 

§ 10,0 SAY 'Anzahl der zu druckenden Adressaufkleber?'; 


STORE LIN+1 TO LIN 

GET ANZ PIGTÜRE '99' 


ENDIF 

READ 


IF ORT <> ' 

§ 15,20 SAY 'Folgende Justierung ist nötig:' 


? TRIM(NAT)+' '+PLZ+' '+ORT 



9 1 -- 1 




§ 18,0 SAY 'Linker Rand des Adressaufklebers auf 0 der Schiene' 


STORE LIN+2 TO LIN 

§ 19,0 SAY ' 1 


ENDIF 

§ 21,0 SAY 'Anlegeschiene muß mit Beginn zweites Loch ; 


IF VWALO' 

übereinstimmen.' 


? 'Tel.Nr.: '+TRIM(VWAL)+'-’+TRIM(VWP)+'-'+TNRP 

SET GONSOLE OFF 


STORE LIN+1 TO LIN 

WAIT 


ELSE 

SET PRINT ON 


? 'Tel.Nr.; '+TRIM(VWP)+'-'+TNRP 

9 


STORE LIN+1 TO LIN 

STORE 0 TO ZAHL 


ENDIF 

DO WHILE ZAHL < VAL(ANZ) 


DO GASE 

P cm(27)+CHR(64)+CHR(27)+"3’’+CHR(36)+CHR(27)+"G"+' '-hAN 


GASE ((GEBD <> ' ' .AND. VWD <> ' ').AND.VOREO' ') 

« Drucker normieren.Zeilenabstand auf 36/216" und Doppeldruck 


? TRIM(V0R)+' '+TRIM(GEBD)+' '+'Tel.Die.:'+VWD+TNRD 

t ’ '+NA 


STORE LIN+1 TO LIN 

t ' ’+STR 


GASE ((GEBDO ' '.AND.VWD= * ').AND.VOREO ' ') 

T 


? TRIM(V0R)+' '+TRIM(GEBD) 

t CHR(27)+CHR(64)+GHR(27 ) +"E"+ ' '+0RT1 


STORE LIN+1 TO LIN 

• Drucker normieren und auf Fettschrift setzen 


GASE (GEBD <> ' ' .AND.VWD O ' ') 

f 


? TRIM(GEBD)+' Tel.Die.; '+VWD+TNRD 

t 


STORE LIN+1 TO LIN 



GASE (GEBD = ' '.AND.VWDO ' ') 

¥ 


? 'Tel,.Die.: '+VWD+TNRD 

STORE ZAHL+1 TO ZAHL 


STORE LIN+1 TO LIN 

ENDDO 


ENDCASE 

? CHR(27)+GHR(64)+GHR(13) 


IF (GEBDE O ' ' ,0R. VWDE O ' ') 

* Drucker Normieren und Linefeed 


IF VWDE = ' 

SET PRINT OFF 


? TRIM(V0RE)+' '+TRIM(GEBDE) 

SET CONSOLE ON 


STORE LIN+1 TO LIN 

RELEASE ALL 


ELSE 

RETURN 


? TRIM(V0RE)+' '+TRIM(GEBDE)+' Tel Die.:'+VWDE+TNRDE 

* Ende von DO SGHREIBA.CMD 


STORE LIN+1 TO LIN 

ENDIF 

ENDIF 

11.SCHREIBLCMD 


IF BEMO' ' 

? 'Bemerk.; '+BEM 

* SGHREIBL GMD (Druckt Adresslisten aus) 


STORE LIN+1 TO LIN 

ERASE 


ENDIF 

SET TALK OFF 


9 

§ 3,19 SAY 'Adresslisten - und Etikettendruckprogramm' 


? 

§ 4,19 SAY ' ' 


STORE LIN+2 TO LIN 

§ 10,5 SAY '1,Adressen ansehen' 


SKIP 

§ 12,5 SAY ' 2-Adressliste drucken' 


IF (LIN>35.AND.(ANT='2' ) ) 

9 


SET PRINT OFF 

STORE F TO OK 


ERASE 

DO WHILE .NOT.OK 


§ 12,5 SAY 'Bitte neues Blatt in den Drucker ; 

SET CONSOLE OFF 


einspannen.' 

WAIT TO ANT 


§ 14,5 SAY 'Danach mit RETURN weiterdrucken,' 

SET CONSOLE ON 


SET CONSOLE OFF 

IF ,N0T.ANT$'12' 


WAIT 

? CHR(7) 


SET CONSOLE ON 

ELSE 


SET PRINT ON 

STORE T TO OK 


STORE 0 TO LIN 

ENDIF 


ENDIF 

ENDDO 


ENDDO 

ÜSE B:ADRESSEN INDEX ALPHA 


STORE 0 TO LIN 

ERASE 


IF ANT='l' 

IF ANT = '2' 


STORE ' ' TO FRA 

§ 12,5 SAY 'Bitte den Drucker bereitmachen! Danach RETURN !' 


§ 23,0 SAY 'A)bbrechen RETURN=Weiter ' GET FRA 

9 


READ 

SET CONSOLE OFF 


ERASE 

WAIT 


IF ! (FRA)='A' 

SET CONSOLE ON 


RETURN 

SET PRINT ON 


ENDIF 

? CHR ( 27 ) +CHR ( 15 ) +CHR ( 27 ) +CHR ( 48 ) +CHR ( 27 ) +CHR ( 56 ) 


ENDIF 

* Drucker auf Schmalschrift, 1/8" Zeilenabst. + Abschaltung der 


DO GASE 

* Papierenderkennung 


GASE ANT='l' 

ENDIF 


ENDDO 

STORE 0 TO LIN 


GASE ANT='2' 

DO WHILE .NOT.EOF 


ENDDO 

DO GASE 


ENDCASE 

GASE ANT='2' 


IF ANT='2' 

DO WHILE (LIN < 42 .AND..NOT.EOF) 


? CHR(27)+CHR(64) 

GASE ANT='l' 


* Drucker normieren 

DO WHILE (LIN < 16 ANDNOT.EOF) 


SET PRINT OFF 

ENDCASE 


ENDIF 

DO GASE 


RELEASE ALL 

GASE VORE <> ' 


RETURN 

? TRIM(VOR)+'+'+TRIM(VORE)+' '+FAM 


* Ende von SCHREIBL.CMD 
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^ Cp/M 


12. LOESCH.CMD 


* LOESCH,CMD (Löscht die Personaldaten einer Person} 

USE B;ADRESSEN INDEX ALPHA 

SET TALK OFF 

ERASE 

§ 4,15 SAY 'Datenlöschung für eine bestimmte Person ' 

§ 5,15 SAY ’ 

9 

? 

ACCEPT 'Familienname der gesuchten Person ' TO MFAM 
FIND &MFAM 
IF # <> 0 

STORE # TO R:NR 
ENDIF 
DO SUCH 
IF ENDE 
RETURN 
ENDIF 

USE B:ADRESSEN 
GO R:NR 

LOCATE FOR FAM-MFAM 
STORE ' ' TO GP 
DO AUSMASKE 
DO WHILE !(GP)='N’ 

STORE ' ' TO GP 
CONTINUE 
IF EOF 
ERASE 
§ 12,0 

? 'Weitere Personen, die ',MFAM,' heißen,gibt es nicht !' 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 
RETURN 
ENDIF 

DO AUSMASKE 
ENDDO 
ERASE 

§ 5,0 SAY 'A C H T U N G, ACHTUNG, ACHTUNG, ; 
ACHTUNG' 

§ 6,0 SAY ' 


§ 9,0 SAY ' 
§ 10,0 SAY 
§ 12,0 SAY 
§ 14,0 SAY 
§ 16,0 SAY 
§ 18,0 SAY 
STORE 


Folgende Person wird gelöscht: 


'Familienname :'+FAM 

'Vorname :’+VOR 

'Straße :'+STR 

'Ort :'+PLZ+' ’+ORT 

TO LOESCH 

§ 22,0 SAY 'Ist dies die gewünschte Person zum Löschen? 

(J/N)' GET LOESCH 

READ 

IF !(LOESCH)='J' 

DELETE 

PACK 

ERASE 

§ 12,0 SAY 'Es wurden die Daten der Person '+MFAM+'; 
gelöscht!!!' 

§ 14,0 SAY 'Bitte keine Eingaben machen; es werden; 
die Indexdateien' 


§ 15,0 SAY 'aktualisiert.' 
INDEX ON FAM TO ALPHA 
INDEX ON VOR TO BETA 
INDEX ON VORE TO GAMA 
ENDIF 

RELEASE ALL 
RETURN 

Ende von DO LOESCH.CMD 


13. SUCH.CMD 

* SUCH.CMD (Sucht nach gegebenen Kriterien) 

STORE F TO ENDE 
DO WHILE #-0 
ERASE 
§ 12,0 

?' Den Familiennamen ',MFAM,' gibt es nicht !' 

? 

?' Bitte Eingabe wiederholen oder mit Return abbrechen ! 

9 

? 

ACCEPT ' Familienname der gesuchten Person ' TO MFAM 
IF MFAM =' ’ 

STORE T TO ENDE 
RETURN 
ENDIF 

FIND &MFAM 
STORE # TO R:NR 
ENDDO 
RETURN 

^ Ende von SUCH.CMD 


Ql HiMMs FACHBUCHTIP: 


rrnnk Qiittlof 


Applesoft BASIC 



Applesoft BASIC 

Tips und Tricks 

von Frank Bühler 

1985, 241 S.,40Abb., 
kart., DM 38— 

ISBN 3-7785-1094-0 

Begleitdiskette DM 44,— 
ISBN 3-7785-1291-9 


Das Buch enthält eine komplette Beschreibung aller 
möglichen Applesoft-Befehle und zeigt an einem Bei¬ 
spiel die erforderliche Syntax auf. Ausgearbeitete Un¬ 
terroutinen können leicht in eigene Programme über¬ 
nommen werden. 


Das Buch zum Apple-Writer II/Ile 

von Hans Gabriel 

1986, 157 S., kart., Begleitdiskette DM 44,— 

DM 35,— ISBN 3-7785-1337-0 

ISBN 3-7785-1234-X 

„Das Buch zum Apple-Writer II/Ile“ wendet sich an 
alle, die dieses Textverarbeitungssystem schon einset- 
zen oder noch einsetzen wollen. 


Carl Ufrich Wasserrnönri 


Apple IIc 

Handbuch für 

Anwender und Programmierer 



Apple IIc 

Handbuch für Anwender 
und Programmierer 

von Carl-Ulrich 
Wassermann 

1985, 324 S., zahlr. Abb., 
kart., DM 35,— 

ISBN 3-7785-1157-2 


Wenn Sie die Leistungsfähigkeit Ihres Apple IIc bisher 
noch nicht ausschöpfen konnten, brauchen Sie dieses 
Buch. 
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DTACK-68000-Boarcl 

Ein Erfahrungsbericht 


von Wolfgang Trier 

Wir alle kennen das Problem nur zu gut: 
Für viele Aufgaben ist die alte 6502-CPU 
des Apple II einfach zu langsam, woran 
auch der Einsatz einer Z80-Karte nichts 
Entscheidendes ändert. Also was tun? Ein 
neues System scheidet meist aus zwei 
Gründen aus: Die Menge der geschriebe¬ 
nen und gesammelten Software verbieten 
einen Systemwechsel, und außerdem 
trennt man sich von einer bekannten Ma¬ 
schine nur sehr ungern, da dies mit gro¬ 
ßem Zeit- und Kostenaufwand verbunden 
ist. 

Um diesen Mißstand zu beheben, gibt es 
eine Erweiterung, die auf der Basis des 
MC 68000 von Motorola arbeitet, der ne¬ 
ben seiner internen 32-Bit-Struktur auch 
noch mit der 12,5fachen Taktfrequenz 
läuft: Das DTACK-Board. 

Es handelt sich hierbei um ein externes 
Board, das über ein Interface in einem 
beliebigen Slot mit dem Apple verbunden 
wird. Dessen mit 12,5 MHz getakteter Pro¬ 
zessor greift ohne „wait States“ auf stati¬ 
sches RAM zu. (Anm.d.Red.: Zum Ver¬ 
gleich arbeitet der Macintosh wegen der 
Wartezyklen mit ca. 5,6 MHz.) 

Die Karte ist sehr sauber mit Präzisions¬ 
sockeln aufgebaut und macht einen recht 
aufgeräumten Eindruck. Die Ein- und Aus¬ 
gabe erfolgt wahlweise über den Apple 
(Interface-Karten) oder ist auch direkt vom 
Expansion-Bus des DTACK-Boards mög¬ 
lich. Der DMA-Kanal des Apple wird nicht 
blockiert, so daß Harddisk-Controller usw. 
weiterhin unverändert verwendbar sind. 
Auch eine Floating-Point-Prozessorkarte 
mit dem NS 16081 ist erhältlich und wird 
von der Software unterstützt. 

Der 68000 und der 6502 des Apple arbei¬ 
ten parallel (gleichzeitig). Dadurch läßt 
sich der als intelligentes I/O genutzte App¬ 
le z.B. als Printer-Spooler einsetzen, ohne 
daß der 68000 durch die Printer-Ansteue- 
rung blockiert wird. 

Erfreulicherweise ist auch die Software- 
Unterstützung hervorragend, so daß alle 
Pascal-, Fortran- und Modula-Programme 
in UCSD-P-Code ohne neue Übersetzung 
unverändert laufen. Ferner ist das von Di¬ 
gital Research entwickelte und weit ver¬ 
breitete CP/M 68K, das auch einen C- 
Compiler enthält, lauffähig. 

Darüber hinaus ist ein von einer deut¬ 


schen Firma entwickelter und in 68000- 
Code geschriebener und daher sehr 
schneller 68000/68020-Assembler erhält¬ 
lich. 

1. Das UCSD-System 

1.1. P-Code-Interpreter INTER86 

Das gesamte UCSD-Betriebssystem ist 
durch einen P-Code-Interpreter in 68000- 
Code mit Namen INTER68 voll verfügbar. 
Als besonders angenehm, vor allem für 
die immer zahlreicher werdenden Pascal- 
Freunde, erweist sich die Tatsache, daß 
mit INTER68 nicht nur eine enorme Ge¬ 
schwindigkeitsverbesserung der alten 
Programme möglich ist, sondern viele zu¬ 
sätzliche Features geboten werden, die 
man bisher schmerzlich vermißt hat. 
INTER68 interpretiert P-Code, wie er im 
„Apple Pascal Operating System Referen¬ 
ce Manual“ definiert ist und ist daher auf¬ 
wärtskompatibel zum Apple-Pascal. So 
laufen z.B. alle von Apple mit dem UCSD- 
System gelieferten Demo-Programme oh¬ 
ne erneute Übersetzung oder Modifizie¬ 
rung sofort, nur eben sehr viel schneller 
(ebenso die Turtlegraphics-Routinen). 
INTER68 erlaubt Compiler-Raten von über 
2000 Zeilen pro Minute, was gegenüber 
den bekannten 300 Zeilen pro Minute auf 
dem Apple allein schon einen riesigen 
Fortschritt darstellt. Wo man früher bei lan¬ 
gen Programmen minutenlang warten 
mußte, nur um festzustellen, daß kurz vor 
dem Programmende noch ein Syntax- 
Fehler saß, macht sich das bei mir heute 
kaum negativ bemerkbar, da die Dots des 
Compilers ohnehin schneller sind als man 
zählen kann, so daß sich kaum ein nen- 
neswerter Zeitverlust ergibt. Das Program¬ 
mieren ist jetzt weit weniger ermüdend 
und macht viel mehr Spaß. Außerdem sind 
die Programme typischerweise zwischen 
12- und 20mal schneller als bisher, je nach 
Grad des verwendeten I/O (z.B. Diskzu¬ 
griff etc., der natürlich nicht beschleunigt 
werden kann). 

INTER68 liegt ab Adresse $10.000 auf¬ 
wärts und bietet einen 60K-Arbeitsspei- 
cher; die unteren 4K können nicht benutzt 
werden, da sie vom Bootstrap-ROM benö¬ 
tigt werden. Vor allem die Systempro¬ 
gramme profitieren ganz besonders von 


diesem zusätzlichen Platz. Programme, 
die bisher auf die Compiler-Swapping-Op- 
tion angewiesen waren, können jetzt häu¬ 
fig ohne zeitaufwendiges Disk-Swapping 
compiliert werden. 

Der Editor kann bis zu 60 (!) Blocks im 
Arbeitsspeicher halten (oder 64. wenn Sy¬ 
stem Swapping eingeschaltet ist). 

INTER68 läßt mit dem CONFIGURE-Pro- 
gramm eine Aufteilung des Speichers in 
Arbeitsspeicher und RAM-Disk zu, deren 
Volume-Nummer frei definierbar ist. Es ist 
auch möglich, mit CONFIGURE die RAM- 
Disk als Boot-(Root-)Volume zu instal¬ 
lieren. 

Je nach Speicherausbau greift das System 
kaum noch auf die Diskette zu, was neben 
der Ruhe auch eine enorme Geschwindig¬ 
keitsverbesserung im Sprung zwischen 
den verschiedenen Systemebenen oder - 
Programmen bedeutet. 

1NTER68 benutzt das BIOS des Apple- 
Pascal, um mit der Peripherie zu kommu¬ 
nizieren (liegt in der 16K-Karte). Solange 
die bekannten Aufruf-Konventionen be¬ 
folgt werden, kann sich z.B. jeder Anwen¬ 
der auch ein eigenes Host-Interface 
schreiben, da man am mitgelieferten Source¬ 
code des Standard-Software-Interfaces 
genau sehen kann, wie die Kommunika¬ 
tion zu erfolgen hat. Vier spezielle BIOS- 
Aufrufe (UserRead, UserWrite, UserSta- 
tus, UserUnit) wurden aufgestellt, um die 
Unit-Nummern von 128 bis 255 zu nutzen. 
So kann z.B. mit anwenderspezifischer 
Peripherie (A/D-Wandler, 640K-Drive 
usw.) über die Standard-Pascal-Funktio- 
nen BLOCKREAD/BLOCKWRITE komfor¬ 
tabel kommuniziert werden. 

1NTER68 kann Code von positivem und 
negativem Byte-Geschlecht interpretieren 
(Apple Pascal kann nur negatives Byte- 
Geschlecht interpretieren); daher können 
die Programme Segmente beider Byte- 
Geschlechter beinhalten, was die Verar¬ 
beitungsgeschwindigkeit nicht beeinflußt. 

1.2. Lieferumfang 

Geliefert werden auf einer Diskette folgen¬ 
de Files: 

SYSTEM.68000 - enthält INTER68 im 
Phase-Zero-Format. 

SYSTEM.COMPILER - ein modifizierter 
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Compiler, der automatisch das Byte-Flip- 
pen berücksichtigt und Code generiert, für 
den die transzendenten Funktionen, die 
schon im INTER68 enthalten sind, zu¬ 
gänglich sind. 

SYSTEM.LIBRARY - enthält Longinte- 
ger, Turtlegraphics und Applestuff, die in 
68000-Code geschrieben sind. 
MAKEPASCAL - Dieses Utility-Pro¬ 
gramm überführt eine Kopie des SY¬ 
STEM.PASCAL in einen File 68000.PAS- 
CAL. MAKEPASCAL patcht das Opera- 
ting-System an sechs Stellen, wie man am 
mitgelieferten Textfile MAKEPASCAL. 
TEXT leicht ersehen kann. 

UPLOAD - transferiert INTER68 auf das 
DTACK-Board. Wen interessiert, wie das 
geschieht, schaut sich am besten die Files 
UPLOAD.PASTEXT und UPLOAD.ASM. 
TEXT an. 

CALL68 - startet INTER68 im 68000 und 
die Kommando-Prüfroutinen im Software- 
Interface (apple-seitig). Auch wird hier die 
höchstmögliche RAM-Adresse auf dem 
DTACK-Board gesetzt, um die Möglichkeit 
einer einfachen Parameteränderung zu 
gewähren. Alle Interface-Routinen liegen 
auch als Source-Code in den Files CALL 
68.AS1.TEXT und CALL68.AS2.TEXT vor, 
die in ihrer Bedeutung im Handbuch aus¬ 
führlich beschrieben sind. 

UPLOAD und CALL68 sind getrennt, da 
man normalerweise nach einem Rück¬ 
sprung in das Apple Pascal den im 
DTACK-Board liegenden Interpreter nicht 
neu laden muß. 

FLIP - flippt 16-Bit-Einheiten im Block 0 
eines jeden spezifizierten Files. Wenn 
FLIP zweimal angewendet wird, ist der 
ursprüngliche Zustand wieder hergestellt. 
Man muß z.B. beim Linken von Files unter¬ 
schiedlichen Byte-Geschlechtes flippen. 


1.3. Neuer Datentyp Double 

Besonderer Erwähnung bedarf weiterhin 
der neue Datentyp Double, der doppelt 
genaue Gleitkomma-Arithmetik mit 15 (!) 
signifikanten Stellen ermöglicht. Die 
lOOOfache Bearbeitung der Zeile 

a : = tan (arctan (exp (In (sqrt (sqr (a))))))/a 
- 1 ; 

ergab einen Fehler von nur 3.939 E-17, im 
Gegensatz zu 2.269 E-7 des Apple Pascal, 
was eine Genauigkeitssteigerung um den 
Faktor 10.000.000.000 darstellt. 

Wer will, kann für DM 195.- einen Native 
Code Generator (NCG68) erstehen, der 
vorhandene Programme noch einmal um 
bis zu 8ma! schneller laufen läßt. Man kann 
sogar wählen, ob man die Optimierung 
des gesamten Programmes oder nur eines 
Segmentes wünscht. 



pRodukTE 



1.4 Macro-Assembler ASM68020 

Ein weiterer wesentlicher Bestandteil des 
Pascal-Systems ist ein hervorragender 
Macro-Assembler. 

Mit ASM68020 erhält man einen in 68000 
geschriebenen Macro-Assembler für den 
68000, 68010 und den 68020 mit „Condi- 
tional Assembly“ und lokalen Labels. Die 
Codefiles des ASM68020 können an alle 
Pascal- oder Fortran-Programme „gelinkt“ 
werden oder aber auch als selbständige 
Programme ausgeführt werden. 

Es handelt sich dabei um einen „one 
pass"-Assembler und ist damit wesentlich 
schneller als zweistufige Assembler. Die¬ 
sen Vorteil muß man jedoch mit einer län¬ 
geren Symbol Table und kleinen Ein¬ 
schränkungen im Gebrauch von Labels 
bezahlen. 

Wenn ASM68020 auf einer RAM-Disk vor¬ 
liegt, sind Zeiten von über 3000 Zeilen pro 
Minute bei einem 25.000-Zeilen-Pro- 
gramm möglich, ansonsten liegt der 
Durchsatz immerhin noch bei etwas über 
1500 Zeilen pro Minute. 

Der Gebrauch des ASM68020 entspricht 
etwa dem, was ich vom Apple-Pascal- 
6502-Assembler gewohnt war. Der File 
SYSTEM.ASSEMBLER enthält sowohl 
den Assembler als auch die Opcodes. 
Wenn 68020.ERRORS verfügbar ist, gibt 
der Assembler nicht nur die Nummer, son¬ 
dern auch den Fehler genau an. 

Der gleiche Assembler steht auch unter 
CP/M 68K zur Verfügung. 


2. Das CP/M-68K-System 

Eine Diskette (CPM68) ermöglicht die In¬ 
stallierung des CP/M-68K-Betriebssy- 
stems. 

Mit diesem CP/M von Digital Research ist 
es möglich, auf dem DTACK-Board Pro¬ 
gramme in den Sprachen Pascal, Modula, 
Fortran, C (wird mitgeliefert) und Forth zu 
schreiben. Auch der aus dem P-Code- 
System von INTER68 bekannte schnelle 
Assembler ASM 68 läuft unter CP/M weit 
schneller als der von Digital Research mit¬ 
gelieferte 68000-Assembler. 

2.1. Lieferumfang 

Auf der CPM68-Diskette befinden sich fol¬ 
gende Files: 

CP/M.SYS - Objekt-File des BIOS für das 
Apple-68000-System. 

UPLOAD.COM - Transferiert CP/M.SYS 
und CP/M.REL (relozierbare Version des 
CP/M 68K von Digital Research) zum 
68000-Board. 

CALL68.COM - Startet sowohl das 68K- 
Operating-System als auch apple-seitig 
die „Command Fetch Loop“, 


CONFIG.COM - Paßt das CP/M-Opera- 
ting-System den individuellen Wünschen 
an. 

Mit dem CONFIG-Programm kann jeder 
das System auf seine eigenen Bedürfnis¬ 
se zuschneiden. Das Programm ändert 
folgende Parameter: 

- Länge der TPA (Default: 96K = 
$00F000) 

- Höchste RAM-Adresse (Default: 96K = 
$018000) 

- Adresse der USER-INPUT-Routine (De¬ 
fault: $000000) 

- Adresse der USER-OUTPUT-Routine 
(Default: $000000) 

- Slot-Nummer des 68000-interfaces (De¬ 
fault: 2) 

Unter CP/M 68K können zusätzlich 8 ver¬ 
schiedene anwenderspezifische Ein- und 
Ausgaberoutinen (USER-IN PUT/USER¬ 
OUTPUT) installiert werden. Die Anfangs¬ 
adressen der USER-INPUT-/USER-Out- 
put-Routinen werden mit CONFIG defi¬ 
niert. 

Alle Devices (z.B. Harddisks, 640K-Drives 
usw.), die unter Z80-CP/M verfügbar sind, 
werden durch CALL68 automatisch er¬ 
kannt und stehen dem Benutzer unter CP/ 
M 68K ohne zusätzliche Installierung un¬ 
verändert zur Verfügung. 

Beide Betriebssysteme, Z80-CP/M und 
CP/M 68K, residieren im RAM-Bereich 
des Systems, was die Ausnutzung der 
Vorteile des jeweiligen Systems unproble¬ 
matisch macht. 

Dies ermöglicht die simultane Benutzung 
von bestehenden Z80-Programmen (z.B. 
Wordstar, dBase etc.) und 68000-Pro- 
grammen. Darüber hinaus können auf der 
gleichen Diskette Z80-CP/M- und CP/M- 
68K-Programme gemischt gespeichert 
werden, da beide Betriebssysteme das 
gleiche Diskettenformat verwenden. 
Durch das Suffix „.68K“ und „.COM“ wird 
die Zugehörigkeit zum jeweiligen Be¬ 
triebssystem automatisch erkannt und 
macht so einen Systemabsturz durch Ver¬ 
wechslung unmöglich. 

Je nach Speicherangebot wird automa¬ 
tisch eine Pseudo-Disk angelegt, die den 
Platz zwischen dem Ende der TPA und der 
höchsten RAM-Adresse nutzt. 

Die Bezeichnung der Pseudo-Disk ist zwi¬ 
schen „A:“ und „P:“ frei wählbar. 

Diese logische Einheit kann in der glei¬ 
chen Weise wie eine externe Floppy ge¬ 
nutzt werden, nur daß die Geschwindigkeit 
des Datentransfers wesentlich steigt. Man 
kann auf P: Files editieren, assemblieren, 
compilieren, alles natürlich schneller als 
mit einer Harddisk. 
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Dank der sehr ausführlichen Dokumenta¬ 
tion ist es auch hier ohne weiteres mög¬ 
lich, eigene Treiber zu schreiben und ei¬ 
gene Karten (wie z.B. A/D-D/A-Wandler, 
Graphic Boards usw.) unter CP/M einzu¬ 
binden. Es besteht ebenfalls die Möglich¬ 
keit, Daten direkt über das DTACK-Board 
ein- und auszugeben. 

Leider ist in der Bundesrepublik wegen 


Ein Erfahrungsbericht 
von Herwig Cuypers 

Peeker-Leser und Tester Ingenieur H. 
Cuypers ist Belgier, der seit seiner Schui- 
zeit keinen längeren deutschen Text mehr 
geschrieben hat Trotzdem ist ihm der 
deutschsprachige Bericht, den wir natür¬ 
lich etwas überarbeiten mußten, hervorra¬ 
gend gelungen. Versetzen Sie sich in die 
Lage, Sie müßten einen Apple-Bericht in 
Französisch schreiben, und Sie werden 
sich über die sprachliche Leistung von 
Herrn Cuypers nur wundern können, us 

1. Appleworks und Apple II+ 

Das integrierte Softwarepaket Appleworks 
wurde bekanntlich nur für die neueren Ap¬ 
ple-Typen Ile und llc entwickelt. Da Ap¬ 
pleworks verstärkt vom RAM der erweiter¬ 
ten 80-Zeichenkarte Gebrauch macht, ist 
es grundsätzlich auf dem Apple II+ nicht 
lauffähig. Auch eine 128K-RAM-Karte 
bringt keine Abhilfe, da diese nicht in den 
gesamten Speicherbereich des Mother¬ 
boards gemappt ist. Eine eigene Version für 
den Apple ll-H wurde von Apple, wohl auch 
in Hinblick auf die Flut der kompatiblen 
Rechner, nicht herausgebracht. 

Nun wird jedoch seit einiger Zeit in den 
USA von der Firma Norwich Data Services 
Ltd. das Patchprogramm Plusworks ange- 
boten. Dieses ist in den drei Versionen 
Plusworks, Plusworks XM und Plusworks 
XMP erhältlich. 

2. Plusworks 

Plusworks patcht die Appleworks-Boot- 
Diskette. An Hardware benötigt es einen 
Apple IH- mit Applesoft-BASIC im ROM, 
64K RAM, eine Tastatur mit Groß- und 
Kleinschreibung (Shift-Key-Modifikation 
wird unterstützt) und eine 80-Zeichenkar¬ 
te. Angeboten wird es für ca. $23 inkl. 
Porto und Verpackung. 


der amerikanischen Ausfuhrbestimmun¬ 
gen das Original-DTACK-Board der Firma 
Digital Acoustics, Santa Ana, Ca. nicht zu 
beziehen. Das Ingenieurbüro Fuchs in Aa¬ 
chen stellt jedoch eine verbesserte Version 
her, so daß man auch bei uns nicht 
auf den enormen Geschwindigkeitsvorteil 
eines am Apple betreibbaren 68000 ver¬ 
zichten muß. 


Plusworks XM stellt die gleichen Anforde¬ 
rungen an die Hardware, bietet auch die 
gleichen Möglichkeiten, unterstützt jedoch 
zusätzlich eine Reihe von RAM-Karten bis 
1024K. Plusworks XMP schließlich unter¬ 
stützt noch zusätzlich die in den USA sehr 
verbreiteten PCPI- und ALS-CP/M-Karten 
mit jeweils 64K RAM. Die XM- und XMP- 
Versionen können auch auf einem Apple 
Ile sinnvoll eingesetzt werden, wenn man 
etwa den Desktop-Bereich mit einer RAM- 
Karte erweitern oder statt der erweiterten 
80-Zeichenkarte lieber seine alte Video¬ 
term verwenden möchte. Beide Program¬ 
me sind für jeweils $53 inkl. Porto und 
Verpackung erhältlich. 

3. Plusworks XM 

Ich selbst bin (immer noch) Besitzereines 
Apple ll-t-, ausgerüstet mit einer Videx- 
Videoterm und einer Saturn 128K-Karte. 
Ich bestellte daher in den USA Plusworks 
XM. Ungefähr 2 Wochen nach der Bestel¬ 
lung traf es gut verpackt per Post bei mir 
ein. Das Programm wird auf einer einseiti¬ 
gen, kopierbaren 5 1/4-Zoll-Diskette ge¬ 
liefert. Die Dokumentation beschränkt sich 
auf eine zehnseitige Broschüre in engli¬ 
scher Sprache. 

4. 80-Zeichenkarten 

Plusworks XM unterstützt folgende 80- 
Zeichenkarten: 

-Videx Videoterm (mit inversem Zweitzei- 
chensatz) 

- Ultraterm 

- Viewmax 80 

- Franklin 

- Viewmaster 80 

- Magnum 80 

- Wizard 80 

- Smarterm II 

Die 80-Zeichenkarte muß wie üblich in 
Slot 3 installiert sein. 


5. RAM-Karten 

In der mir vorliegenden Version unterstützt 
Plusworks XM alle RAM-Karten der Firmen 
Legend Industries, Titan/Saturn, Abacus 
und Prometheus sowie die dazu kompati¬ 
blen. Da der Apple II+ über 64K RAM 
verfügen muß, ist außerdem eine 16K- 
Karte in Slot 0 erforderlich. Hat die RAM- 
Karte mehr als 128K, kann der über 128K 
hinausgehende Bereich zusätzlich als 
RAM-Disk verwendet werden. 


6. Installation 

Der gesamte Installierungsvorgang findet 
im Laufwerk 1 statt. Dazu wird die Plus- 
works-XM-Diskette eingelegt und geboo¬ 
tet. Nach dem Booten fordert Plusworks 
zum Einlegen der Appleworks-Startup- 
Diskette auf. Ist dies geschehen, fordert 
Plusworks wenig später zum erneuten 
Einlegen der Plusworks-Diskette auf. Kurz 
danach erscheint ein Menü mit einer Aus¬ 
wahl von verschiedenen 80-Zeichenkar- 
ten. Nach Eingabe der verwendeten 80- 
Zeichenkarte schaltet Plusworks auf 80- 
Zeichendarstellung um und testet den 80- 
Z/Z-Bildschirm. Zum letzten Mal fordert 
Plusworks dann zum Einlegen der Ap¬ 
pleworks Startup-Diskette (oder besser ei¬ 
ner Kopie) auf. Die Plusworks-Diskette 
benötigt man nun nicht mehr. 

Das Patchprogramm bittet nun um Antwort 
auf verschiedene Fragen. Zuerst kommt 
die Frage nach der Art der Tastatur. Man 
hat die Wahl zwischen einer ASCII-Tasta- 
tur und einer Apple-Tastatur mit Shift-Key- 
Modifikation. Die nächste Frage bittet um 
Angabe einer Ersatztaste für die beim Ap¬ 
ple ll-H fehlende Delete-Taste. Plusworks 
empfiehlt Control-Q. Als nächstes erfragt 
Plusworks eine Ersatztaste für die offene 
Apfel-Taste. Plusworks schlägt hier Con- 
trol-0 vor. Ersatzweise kann aber auch die 
Drucktaste 1 des Joysticks verwendet 
werden, eine Möglichkeit, die mir etwas 
umständlich erscheint. 

Nun fragt Plusworks, ob ein Druckerpatch 
notwendig Ist, warnt jedoch gleichzeitig 
davor, vorschnell mit „Y“ zu antworten. Es 
empfiehlt statt dessen, zuerst Appleworks 
so auszuprobieren, um festzustellen, ob 
der Patch überhaupt vonnöten ist. 

Der Rest des Konfigurationsvorgangs läuft 
weitgehend automatisch ab, Plusworks 
XM fragt nur noch nach dem Slot der 
RAM-Karte. Diese wird automatisch identi¬ 
fiziert. Verfügt sie über mehr als 128K, 
fragt Plusworks noch, ob der verbleibende 
Speicherbereich als RAM-Disk verwendet 
werden soll. 

Appleworks ist jetzt auf dem Apple \\-\- 
lauffähig. Wird irgendeine Taste gedrückt, 
bootet die Diskette. 


Plusworks 

Appleworks auf dem Apple 11+ 


60 


Peeker 6/86 





7. Die Bedienung des modifizierten 
Appleworks 

Die geänderten Tastenfunktionen sind gut 
gewählt und erlauben ein bequemes Ar¬ 
beiten mit Appleworks. 

7.1. Tastatur allgemein 

Alle „Offener-Apfer'-Befehle von Ap¬ 
pleworks können mit der gewählten Er¬ 
satztaste simuliert werden. Will der Benut¬ 
zer z.B. eine Hardcopy des Bildschirmin¬ 
halts ausdrucken, tippt er zuerst auf „Con- 
trol-0“, dann auf „H“. Nachdem die Er- 
satz-Apfeltaste gedrückt wurde, erscheint 
an der aktuellen Cursorposition ein inver¬ 
ses „ + “. Um dies nach versehentlichem 
Drücken von Control-0 wieder zum Ver¬ 
schwinden zu bringen, muß man einen 
ungültigen „Apfelcode“ eingeben, z.B. 
Control-O - 0. 

Zieht der Anwender es jedoch vor, die 
Joystick-Taste 1 als Apfeltaste zu verwen¬ 
den, muß diese gleichzeitig mit dem be¬ 
treffenden Codezeichen betätigt werden. 

Auf dem Apple II+ gibt es bekanntlich nur 
zwei Cursortasten. Plusworks XM sieht als 
Ersatz für einen Cursorblock den z.B. vom 
Wordstar bekannten „ESDX-Cluster“ vor. 
Die vorhandenen Pfeiltasten können je¬ 
doch ebenso wie der „ESDX-Cluster“ 
verwendet werden. In diesem Cluster ent¬ 
sprechen: 

Control-E = Cursor nach oben 
Control-D = Cursor nach rechts 
Control-X = Cursor nach unten 
Control-S = Cursor nach links 
Auf der Tastatur sieht das wie folgt aus: 

E 

S D 
X 

Abhängig von der Version der Tastatur 
werden die Cursorbewegungen, bei de¬ 
nen man im ungepatchten Appleworks die 
„Offener-Apfel “-Taste betätigt, unter¬ 
schiedlich ersetzt. 

7.2 Original Apple-ll-h-Tastatur 

Hier wird die „Esc“-Taste als Lead-in-Ta- 
ste verwendet. Will man jedoch ein echtes 
„Escape“ erzeugen, muß man zweimal 
die „Esc“-Taste betätigen. Die „Apfel- 
Cursorbewegungen“ (eine Seite nach 
oben/unten, ein Wort rechts/links) werden 
durch gleichzeitiges Betätigen der Con¬ 
trol- und Shifttaste mit E, S, D oder X 
erzeugt. Delete erhält man mit Shift-Links- 
pfell, Control-A fungiert als Caps-Lock- 
Taste. Eine Reihe von Sonderzeichen 
kann man erzeugen, indem man erst die 
Escape-Taste und danach ein bestimmtes 
Zeichen tippt. „Tab“ erzeugt man mit 
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Control-I, den umgekehrten „Tab“ mit 
Shift-Control-L 

7.3. ASCII-Tastatur 

Hier ist die Sache etwas einfacher. Der 
„ESDX“-Cluster wurde einfach um fol¬ 
gende Codes erweitert: 

Control-A = ein Wort nach links 
Control-F = ein Wort nach rechts 
Control-R = eine Seite nach oben 
Control-C = eine Seite nach unten 
Control-V = umgekehrter „TAB“-Befehl 
Auf der Tastatur sind diese Tasten etwa so 
angeordnet: 

E R 

A S D F 
X C V 

Diese Anordnung prägt sich meines 
Erachtens sehr leicht ein und ermöglicht 
ein bequemes Arbeiten. 

8. RAM-Disks 

Da Appleworks ein ziemlich großes Pro¬ 
gramm ist, können nicht alle Module auf 
einmal in den Hauptspeicher geladen wer¬ 
den. Daraus resultiert ein relativ häufiger 
Zugriff auf das Laufwerk 1, was natürlich 
Zeit kostet. Um den Zugriff auf das Haupt¬ 
laufwerk zu minimieren, verfügt Ap¬ 
pleworks über eine dynamische Speicher¬ 
verwaltung. Beim Startup-Prozeß werden 
soviele Module wie möglich in den freien 
Desktop-Speicher geladen. Ist der Desk- 
top-Berelch groß genug, braucht jedes 
Modul nur einmal geladen zu werden. Da 
jedoch die Benutzerdaten höchste Priorität 
besitzen, verringert sich der freie Desk- 
topbereich um so mehr, je größer die 
Datenmenge wird. So werden zunehmend 
Module aus dem freien Desktopspeicher 
gelöscht, und Appleworks muß wieder 
häufiger auf das Laufwerk 1 zugreifen. 
Werden nun RAM-Karten mit einer Spei¬ 
cherkapazität von 256K und mehr verwen¬ 
det, bietet Plusworks zwei verschiedene 
Arten der RAM-Organisation an. 

8.1. Dynamische RAM-Disk 

Wird diese Option gewählt, lädt Ap¬ 
pleworks beim Startup-Prozeß alle Pro- 
gramm-Module in den freien Desktop-Be- 
reich. Die Startup-Prozedur wird daduch 
recht langwierig, danach aber greift Ap¬ 
pleworks nur noch sehr selten auf die 
Boot-Diskette zu. Diese Funktion steht bei 
größeren RAM-Karten automatisch zur 
Verfügung, muß jedoch beim Startup-Pro¬ 
zeß explizit aufgerufen werden. 

Von Vorteil ist hierbei der große Desktop- 
Bereich, doch steht dem die lange Boot¬ 
dauer nachteilig gegenüber. Bootet man 
jedoch Appleworks einmal und arbeitet 
dann sehr lange Zeit damit, ist diese Mög¬ 
lichkeit durchaus sinnvoll einzusetzen. 


8.2. Feste RAM-Disk 

Hier wird die RAM-Karte als echte RAM- 
Disk verwendet. Der Speicher wird in fe¬ 
sten Desktop-Bereich und Pseudo-Lauf¬ 
werk unterteilt. Von Nachteil Ist der Verlust 
von 136K bis 144K Desktop-Speicher. 
Demgegenüber dauert der gesamte Star¬ 
tup-Prozeß nur ca. 20 Sekunden (!) und 
man kann die Appleworks-Diskette aus 
dem Laufwerk herausnehmen und eine 
Datendiskette einlegen. 

9. Druckerpatch 

Dieser Patch setzt bei jedem gesendeten 
Zeichen das 8. Bit. Einige Druckerschnitt¬ 
stellen scheinen diesen Patch zu benöti¬ 
gen, die meisten jedoch nicht. Plusworks 
XM empfiehlt diesen Patch nur, wenn bei 
der Hardcopy oder der Ausgabe von 
Daten Probleme auftreten. Jedenfalls 
brauchten weder mein Epson FX-80 noch 
mein Mannesmann-Tally MT-80 diesen 
Patch. Das Handbuch zu Plusworks nennt 
eine Reihe von Symptomen, bei denen 
der Druckerpatch angebracht isL 

10. Fazit 

Für ca. $53 erhält man ein Patchpro¬ 
gramm, das Appleworks wirklich uneinge¬ 
schränkt auf dem Apple ll-k lauffähig 
macht. Allerdings ist eine RAM-Karte mit 
mindestens 128K dringend erforderlich. 
Einen Desktop-Bereich von 10K kann ich 
jedenfalls nur noch als lächerlich bezeich¬ 
nen. Mit einer 128K-Karte beträgt er dann 
immerhin 136K und ist damit genauso 
groß wie eine ProDOS-Datendiskette. Die 
mitgelieferte Broschüre enthält alle not¬ 
wendigen Informationen: das amerikani¬ 
sche Englisch bereitet jedoch vielleicht 
manchen Anwendern Probleme. 

Ich arbeite nun schon seit einigen Mona¬ 
ten mit dem gepatchten Appleworks auf 
einem Apple IH- und einem -Kompatiblen 
mit Voll-ASCil-Tastatur. Das angepaßte 
Appleworks erscheint mir auf dem kompa¬ 
tiblen Rechner wegen der Tastatur ein we¬ 
nig benutzerfreundlicher. 

Nur ein einziges Mal trat ein kleines Pro¬ 
blem auf. Nachdem ich aus dem Apple IH- 
irgendeine Karte entfernt hatte, lief mit Ap¬ 
pleworks überhaupt nichts mehr. Es boo¬ 
tete zwar, doch konnte das Datum nicht 
geändert werden, und im Hauptmenü wur¬ 
de jede Eingabe mit einem fröhlichen 
Piepston quittiert. Nach sehr langer Feh¬ 
lersuche stellte ich jedoch fest, daß ich 
beim Herausnehmen der Karte aus Verse¬ 
hen den Joystick-Stecker berührt und da¬ 
bei einen Fehlkontakt ausgelöst hatte. Die¬ 
ser Fehlkontakt erzeugte einen ständigen 
„offenen Apfel“. Nachdem der Stecker 
wieder fest in seinem Sockel saß, war das 
Problem behoben. 
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Z-RAM für den 
Apple llc 

Ein Erfahrungsbericht 


von Ulrich Tönnies 


1. Gegenstand 

Das Z-RAM-Board der amerikanischen 
Firma Applied Engineering stellt eine CP/ 
M-Karte mit zusätzlicher Speichererweite¬ 
rung dar. Es ist ausgestattet mit einem 
Z80-Prozessor sowie RAM-Chlps für eine 
Speichererweiterung um 256K bzw. 512K 
(die 256K-Version kann durch Einstecken 
von geeigneten Chips auf 512K erweitert 
werden). Zum Lieferumfang gehören ein 
Handbuch sowie diverse Software. Die fol¬ 
genden Angaben beziehen sich auf die 
512K-Version von Z-RAM. 

2. Installation 

Der Einbau von Z-RAM in den Apple llc 
geschieht anhand der ausführlichen An¬ 
weisungen des (englischen) Handbuchs. 
Bis auf die im folgenden genannten Punk¬ 
te ist er problemlos zu bewältigen. Zu¬ 
nächst ist das Ilc-Gehäuse nach Lösen der 
6 Gehäuseschrauben zu öffnen. Nach Ent¬ 
fernen des Rück-Panels des llc sollte man 
dann nicht versuchen, die „Nase“ am vor¬ 
deren Ende des llc aufzuhebeln, wie im Z- 
RAM Handbuch beschrieben (geht ziem¬ 
lich schwierig), sondern besser erst zwei 
„ Rasten" am Disketteneinschub (vgl. 
Abb. 1: Disketteneinschub*) aufhebeln, 
das Oberteil des Ilc-Gehäuses ist dann 
ganz leicht hochzuklappen. Danach kann 
man die Tastatur zur Seite ziehen. 

Es werden dann die 65C02-CPU und der 
MMU-Chip des llc aus ihren Fassungen 


^Bezieht sich auf Abbildung im Z-RAM-Handbuch. Vgl, 
die 4 Abbildungen in Peeker, 2/86, S. 63 zur Cirtech- 
Z-80-Karte für den llc, 


gezogen und in entsprechende Fassun¬ 
gen auf dem Z-RAM-Board gesteckt. Da¬ 
nach ist das Z-RAM-Board in die freige¬ 
wordenen Sockel der Ilc-Platine zu stek- 
ken. Das geht u.U. zunächst scheinbar 
nicht, es „wackelt“. Einen hilfreichen Hin¬ 
weis hierzu findet man leider erst am Ende 
des Z-RAM-Handbuchs; Apple „vergißt“ 
bei der Montage des llc wohl ganz gern, 
einige Plastikstreifen aus CPU- und MMU- 
Fassung zu entfernen. Hat man dies dann 
selbst erledigt, so paßt Z-RAM aber 
genau. 

Schließlich ist noch das eingebaute Lauf¬ 
werk des lic zu lösen, an den darunter 
befindlichen TMG-Chip ist mittels eines 
„Clips“ das Z-RAM anzuschließen. Beim 
Einbau des Laufwerks achte man darauf, 
die Laufwerksschrauben nicht zu fest „an¬ 
zuknallen“, das könnte wegen des „auf¬ 
tragenden Clips“ zu Platzprobiemen mit 
dem Steppermotor des Laufwerks führen. 
Schließlich baut man den llc wieder zu¬ 
sammen und nimmt Z-RAM in Betrieb. 


3. Einsatzmöglichkeiten 
von Z-RAM 

3.1. CP/M 

Mit dem Board kommt auch das Betriebs¬ 
system CP/AM 4.0, mit welchem sich 
auch das ca. 50seitige Handbuch neben 
der Installationsanweisung vorwiegend 
beschäftigt. Ein Manko dieses Betriebssy¬ 
stems ist, daß es im Lieferzustand nicht an 
den llc angepaßt ist: Mittels CONFIGIO 


hat man die Terminalemulation und Tasta¬ 
turdefinition selbst vorzunehmen. 

Neben dem Betriebssystem wird noch 
RAM-Disk-Software mitgeliefert. Man 
kann damit ein Laufwerk C: mit einer Ka¬ 
pazität von 576K simulieren. Außerdem für 
die „CP/M-Weit“ gedacht sind noch eini¬ 
ge Utilities sowie Patchprogramme für 
Wordstar V3.3x, mittels deren man Word¬ 
star an den llc anpassen kann. Erste Tests 
mit gängigen Programmen zeigten, daß 
keine allzugroßen Probleme zu erwarten 
sein dürften. 

Der Z80 ist offenbar mit 2MHz getaktet. 
Geschwindigkeitsvergleiche zu „gängi¬ 
gen“ CP/M-Karten zeigten keine wesent¬ 
lichen Unterschiede (man sollte sich z.B. 
durch die Aussagen des Pandasoft-Ergän- 
zungskataiogs nicht auf 4MHz einrichten). 
Die Karte bootet zudem CP/M 2.23, nicht 
aber CP/M 2.20. Programme, die auf Dis¬ 
ketten mit CP/M 2.20 vorliegen, sind aber 
nach Kopieren des CP/AM 4.0 auf diese 
Disketten in aller Regel lauffähig. 

3.2. DOS 3.3 

Für DOS 3.3 kann man ebenfalls die Spei¬ 
chererweiterung als RAM-Disk nutzen. Es 
werden die Laufwerke S3,D1-D3 simuliert 
mit 744 bzw. 749 nutzbaren Sektoren. Ein 
für diese Situation gepatchtes FID wird 
mitgeliefert. Außerdem läßt sich DOS 3.3 
durch den SPEEDOS-Patch (im Lieferum¬ 
fang) „schnell“ machen. Probleme dürften 
auch hier nicht zu erwarten sein, z.B. lief 
der gegen DOS-Patches sonst recht anfäl¬ 
lige TASC-Compiier mit SPEEDOS auf der 
RAM-Disk einwandfrei. Die Benutzung 
von Z-RAM unter DOS 3.3 wird im Hand¬ 
buch nicht weiter erläutert, jedoch durch 
ein menügeführtes Programm leicht er¬ 
möglicht. 

3.3. ProDOS 

Hier gelten sinngemäß die Ausführungen 
zu DOS 3.3. Es ist möglich, nicht den 
gesamten Zusatzspeicher von Z-RAM für 
eine RAM-Disk heranzuziehen, sondern 
nur einen Teil (64K-Banks sind „sperr¬ 
bar“). Die RAM-Disk-Software unter Pro- 
DOS zieht auch nicht die „oberen“ 64K 
des llc, wo die Standard-ProDOS-RAM- 
Disk installiert wird, zum Speichern heran. 
Dadurch können Programme, die die 128K 
der Mutterplatine des llc nutzen, weiterhin 
eingesetzt werden, z.B. die Programme 
der Utility-Sammlung EXTRA-K von Bea- 
gle Bros. Das darin enthaltene Programm 
Extra.Variables ermöglicht z.B. einen 
Speicherplatz von ca. 35.000 Bytes für das 
Applesoftprogramm und zusätzlich ca. 
60.000 Bytes für Variablen, und Z-RAM 
bietet dann die 512K RAM-Disk. 
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Peeker-Sammeldisk 
# 18 

Einzelpreis DM 28,-; Fortsetzungs¬ 
preis DM 20- 

Achtung: 

Diskette hat sowohl UCSD-Pascal- als 
auch DOS-3.3-Directory. 


D1SK18: 




CALLDUMP.TEXT 

40 

16-May-86 

6 

CALLDUMP2,TEXT 

26 

16-May-86 

46 

SUPERDUMP.TEXT 

14 

16-May-86 

72 

SUPERDUMP.LIB 

10 

16-May-86 

86 

EPSON.TEXT 

4 

16-May-86 

96 

EPSON.CODE 

2 

16-May-86 

100 

IMAGEWRITR.TEXT 

4 

16-May-86 

102 

IMAGEWRITR.CODE 

2 

16-May-86 

106 

LIB.TEXT 

4 

16-May-86 

108 

FUELLER 

168 

16-May-86 

112 


A 002 PEEKER= = =HEFT05/86 = = = 

A 002 A- 

B 022 EDIT 

A 002 B- 

A 003 MDB.KOPY.SPEZIAL 

A 004 MDB.KOPY 

T 016 T.MDB.KOPY.OBJ 

B 003 MDB.KOPY.OBJ 

A 002 PEEKER= = = HEFT 06/86= = = 

A 002 C- 

T 002 PLOT.3.PRO 

A 059 PLOT.3.E 

B 007 PLOT.BX 

T 055 T.PLOT.BX 

T 015 PLOT.HELP.1 

T 012 PLOT,HELP.2 

T 011 PLOT,HELP.3 

T 011 PLOT.HELP,4 

T 008 PLOT.HELP.5 

T 009 PLOT.PATCH 

T 005 SUPERDUMP.PATCH 

A 002 D- 

A 011 PRODOS.BACKUP 
T 024 T.PRO.BACKUP.O 
B 004 PRO.BACKUP.0 
A 005 KOPY.160.SPUR 
T 018 T.KOPY.160.SPUR.0 
B 003 KOPY.160.SPUR.0 
T 001 DISK HAT AUCH 

PASCAL-DIRECTORY 


Hüthig Software Service 

Postfach 102869 6900 Heidelberg 1 


3.4. Appleworks 

Durch ein „Expander“-Progrannnn kann 
man die Fähigkeiten von Appleworks be¬ 
trächtlich erweitern. So läßt sich Ap¬ 
pleworks z.B. komplett in den Z-RAM- 
Speicher laden. Man kann einen internen 
Drucker-Puffer installieren und geeignete 
„Clocks" abfragen (Applied Engineering 
liefert z.B. eine für den llc). Wesentlich 
dürfte auch sein, daß sich die Zahl der 
Einträge/Zeilen in Textverarbeitung, Re¬ 
chenblatt und Datenbank vervielfacht. Die 
„Schreibtischkapazität“ von Appleworks 
kann auf über 400K vergrößert werden, 
entsprechend große „Dokumente“ kön¬ 
nen sukzessiv auf mehreren Disketten (zu 
je 143K) gespeichert werden. Wichtig: Die 
Erweiterung von Appleworks funktioniert 
nur mit der neuen Version VI .2; wer noch 
die ältere Version besitzt, sollte versu¬ 
chen, sie beim Händler „upzudaten“. 

3.5. UCSD-Pascal 

Die im Lieferantenkatalog (Pandasoft) und 
auch in aktuellen Anzeigen von Applied 
Engineering in US-Zeitschriften genannte 
Software für Pascal 1.1 und 1.2 fehlte bei 
Lieferung. Auf einen Anruf hin erklärte 
Pandasoft dies durch eine von Applied 
Engineering nicht angekündigte Änderung 
des Lieferumfangs. Jedoch schickte Pan¬ 
dasoft die fehlende Pascal-Software inner¬ 
halb von 10 Tagen kostenfrei zu. 

Die RAM-Disk-Software läßt sich unter 
Pascal 1.1 und 1.2 nutzen, die folgenden 
Ausführungen beziehen sich auf die 
128K-Version von Pascal 1.2. Simuliert 
wird ein Volume „RAM:“ oder „#12:“ mit 
508K = 1016 Blöcken. Die Zuordnung zu 
„#12:“ bzw. den Volumenamen kann 
man leicht ändern, da die dafür verantwort¬ 
lichen Programme im Sourcetext beige¬ 
fügt sind. 

Die Installation der RAM-Disk läuft etwa 
wie folgt: Beim Booten wird zunächst ein 
geeigneter Driver installiert, das RAM-Vo- 
lume initialisiert und das Startup-Pro- 
gramm geladen. Dann werden per Exec- 
File z.B. sämtliche System-Files auf das 
RAM-Volume gebracht (man kann den Ex- 
ec-File leicht nach eigenem Geschmack 
ändern oder ergänzen). Schließlich kommt 
der eigentliche „Clou“: Das RAM-Volume 
wird zum Boot-Volume deklariert. Ab jetzt 
braucht man eigentlich kein weiteres „rea¬ 
les“ Laufwerk mehr, besonders der sonst 
doch häufige Diskettenwechsel ist nun 
kein Problem mehr. Eine ganz nette Er¬ 
scheinung ist, daß die Compilierungszei¬ 
ten deutlich kürzer werden (aber bitte kei¬ 
ne Wunder erwarten: Wenn man ohnehin 
schon unter Pascal 1.2-128K arbeitet und 
damit auf (*$S-F^!e) weitgehend verzich¬ 
ten kann, so ist nur das während des Com- 


pilierens häufige Anlaufen der Laufwerke 
eliminiert, der Compiler selbst ist nicht 
schneller als sonst auch). 

Probleme gab es beim Betrieb unter Pas¬ 
cal bisher keine, es wirkt nur auf die Dauer 
etwas ärgerlich, daß z.B. bei Benutzung 
von System.Charset anscheinend die 
„Suchreihenfolge“ etwa wie „#4:“, 
„#5:“.,#12:“ aussieht, d.h. daß im¬ 

mer sämtliche vorhandenen „ realen “ 
Laufwerke zuerst einmal anlaufen. Das ist 
jedoch kein Kritikpunkt an Z-RAM, es beruht 
wohl eher auf der Implementation des 
Pascalsystems. Dadurch kann es passie¬ 
ren, daß man beim Testen von Program¬ 
men zwar auf dem Boot-Volume „#12:“ 
z.B. die umgeschriebene Version einer 
Utility hat, aber zunächst, ohne es zu be¬ 
merken, immer noch eine „alte“ Version 
von einer Diskette gelinkt bekommt. Eige¬ 
ne Utilities kann man ohne weiteres so 
umschreiben, daß der „Suchvorgang“ auf 
„#12:“ beginnt. 

3.6. Zusammenfassung 

Beim ersten Aufruf der RAM-Disk-Soft- 
ware unter einem bestimmten Betriebssy¬ 
stem wird die RAM-Disk jeweils frisch in¬ 
itialisiert. Wird später nochmals die instal- 
lationssoftware aufgerufen, so wird in der 
Regel ein intaktes RAM-Laufwerk nur wie¬ 
der „angeschlossen“, aber nicht neu in¬ 
itialisiert, d.h. daß z.B. nach Reset etc. die 
Daten der RAM-Disk nicht unbedingt 
„weg“ sein müssen. Man kann sogar z.B. 
ein Pascal-RAM-Volume halten, zwi¬ 
schendurch DOS 3.3 booten (natürlich 
hier dann keine RAM-Disk benutzen) und 
nachher erneut Pascal booten: Das alte 
RAM-Volume ist noch intakt. Natürlich 
kann man auch eine normale Neuinstallie¬ 
rung (mit sog. „Init“) auslösen, indem man 
die „Solid-Apple“-Taste beim Aufruf der 
Installationssoftware gedrückt hält. Drückt 
man dagegen zum genannten Zeitpunkt 
„Open-Apple“, so bekommt man durch 
unterschiedliche „Piepstöne“ den Zugriff 
auf die RAM-Disk angezeigt. 

4. Schlußbemerkung 

Z-RAM für den Apple llc ist keine ganz 
billige Erweiterung, aber m.E. eine recht 
nützliche. Die Hard- und Software scheint 
ausgereift zu sein. Ein einzelner Benutzer 
dürfte jedoch lange brauchen, um alle Ein¬ 
satzmöglichkeiten der Karte zu nutzen. 
Gerade darin liegt wohl auch der Wert der 
Karte, die eben nicht nur eine „CP/M“- 
Karte ist, sondern ein recht universell ein- 
setzbares Werkzeug für alle wichtigen 
z.Zt. auf dem Apple laufenden Betriebssy¬ 
steme. Es sei noch angemerkt, daß es 
Vergleichbares auch für den Apple Ile gibt: 
Unter dem Namen RAM-Works wird eine 
Karte verkauft, die m.W. bis zu 3M aus¬ 
baufähig ist. 
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Analytisches Inhaltsverzeichnis 

der Peeker-Sammeldisketten #1 bis #18 


Wenn SFe wissen wollen, was sich auf 
einer bestimmten Sammeldisk insge¬ 
samt beT\nöeX, so schlagen Sie nach für 
die Disketten 

#1 bis #11 in Heft 11 /85. S. 71 -78, 
#12 bis #15 in Heft 4/85, S. 47, 

#16 + #17 in Heft 5/85, S. 74 + 68. 
Korrekturen zu den Programmen finden 
Sie in Heft 11/85, S. 71 ff. sowie 5/86, 
S. 73ff. Das Aufsatz-Jahresinhaltsver¬ 
zeichnis (Heft 1/84 bis 12/85) ist auf 
Sammeldisk #12 mit Stichwort-Such¬ 
programm enthalten. 

Ältere Disketten können Sie separat 
zum Sonderpreis von je DM 20,- nach¬ 
bestellen, 

1. wenn Sie momentan Sammeldisk- 
Fortsetzungsbezieher und auf Ihrer Be¬ 
stellung die Kundennummer vermer¬ 
ken, oder 

2. wenn Sie kein Fortsetzungsbezieher 
sind, aber rückwirkend mindestens 6 
Sammeldlsketten - beliebig gemischt - 
bestellen. 

Ansonsten gilt der normale Einzelpreis 
von DM 28,- je Sammeldisk. 

Das analytische Inhaltsverzeichnis 
nennt den Zweck des jeweiligen Pro¬ 
gramms, gefolgt von der Sammeldlsk- 
Nummer und der Heft-Nummer. Bei¬ 
spielsweise bedeutet „#10-10/85/22" 
= „Programm auf Disk # 10 mit Beitrag 
in Peeker, Heft 10, 1985, Seite 22“. 

1. Hardware 

1.1. Il+/e/c allgemein 

Neue ROMs Ile: Diverse Demopro¬ 
gramme: #10-10/85/22 


Ilc-Schnittstellen: Initialisierungspro¬ 

gramm: #14-2/86/34 
lle/C“Maus: Prozeduren für UCSD-Li- 
brary; #4-4/85/48 

1.2. Drucker 

(s.a. Bildschirm) 

Epson-FX80: Hires-Grafik-Ausdruck: 
#1-1/84/40 + #5-6/85/22 (DOS 3.3) 
# 18-6/86/40 (UCSD) 

Imagewriter-I: Hires-Grafik-Ausdruck: 
#5-6/85/22 (DOS 3.3) -F # 18-6/86/40 
Imagewriter-I: Steuerbefehlsprogramm: 
#12-12/85/8 

Imagewriter-I; Sonderzeichensatz-Pro¬ 
gramm: #16-4/86/32 
Olympia-ESWI OO-RO: Hires-Grafik- 
Ausdruck: #6-6/85/34 
NEC 8023: Hires-Grafik-Ausdruck: 
#10-9/85/30 

Großformatiger Grafik-Ausdruck (mit 
grafikfähigen Interface): #11-11/85/20 

1.3. Bildschirm 

40-Z/Z-ll+/e/c: Speichern des Bild¬ 
schirms (DOS 3.3); #2-1/85/42 
80-Z/Z-lle/c: Speichern -i- Ausdrucken 
des Bildschirms (DOS 3.3): #4-4/85/ 
33 -F #4-4/85/76 -I- #16-4/86/52 
80-Z/Z-lle/c: VTAB-HTAB-Demo: #5- 
5/85/69 

80-Z/Z-lle/c: Ausdrucken des Bild¬ 
schirms (UCSD): #12-12/85/48 
80-Z/Z-lle/c: Schnelle Bildschirmrouti¬ 
ne für UCSD-Library; #17-5/86/29 
ll-i-/e/c: Speichern des Bildschirms in 
Language-Card (DOS 3.3): #14-2/86/ 
40 

Videx-Ultraterm: Zeichensätze: #1-2/ 
84/60 

Videx-Karte: Speichern des Bild¬ 
schirms: #2-1/85/42 


Videx-Zeichensatz: EPROM-Pro- 

gramm: #7-7/85/29 

1.4. RAM'Karten und RAM-Disk- 
Driver 

16K-Language-Card-RAM-Disk-Driver 
(DOS 3.3): #2-1/85/8 
lle/c-64K-RAM-Dlsk-Driver (Pascal 
1.1): #6-6/85/48 

Ile-64K-RAM-Disk-Driver in Assembler 
-H Turbo-Pascal (CP/M 2.20, Z80): #6- 
6/85/55 -F #12-12/85/62 
Balfer-VIA-Karte: Slot-RAM-Disk- 

Driver (DOS 3.3) für Ile-64K-Karte: #5- 
5/85/12 

AP20-256K-RAM-Disk-Driver (DOS 
3.3): #2-1/85/18 

AP33-512K-RAM-Disk-Driver (Pro- 
DOS): #7-7/85/8 

1.5. Sonstige Hardware 

Accelerator-lle: Diverse Utilities: #1-1/ 
84/19 -I- #4-3/85/66 
Wildcard-Plus: Softswitch-Tests: #4-3/ 
85/72 

Modem-Karte: Terminal-Programm: 

#4-4/85/34 (Patch für SSC: 6/85/72) 
S.A.M.-Sprachkarte: Vorleseprogramm: 
#7-7/85/71 

EPROM-Programmiergerät: EPROM- 

MER-Programm: #10-10/85/40 

2. DOS und Disk-Drives 

(s.a. RAM-Karten) 

Betriebssystemunabhängiges Forma¬ 
tierungsprogramm (35-80 Spuren): #7- 
7/85/20 

Hardware-Testprogramm für Disk-Il- 
Drives: #8-8/85/7 

Programm zur Ermittlung defekter Sek¬ 
toren: #11-11/85/24 


2.1. Konvertierungsprogramme 

GETPAS: UCSD ^ DOS 3.3: #2-1/85/ 
68 

GETDOS; DOS 3.3 ^ UCSD: #2-1/ 
85/70 #15 (verbesserte Version) 

GETCPM und WS.TRANSFER; CP/M 
DOS 3.3: #4-3/85/35 
(Für DOS 3.3 ^ CP/M nehme man 
APDOS von CP/M-Systemdisk) 
PASTOPRO: UCSD -> ProDOS: #7-7/ 
85/62 

PROTOPAS: ProDOS^ UCSD: #9-9/ 
85/58 

PROTODOS: ProDOS ^ DOS 3.3: 
#14-1/86/36 

(Für DOS 3.3 ^ ProDOS nehme man 
DOSTOPRO von „Apple-ProDOS, 
Bd.2“) 

READPAS: UCSD ^ CP/M-Turbo: 
#14-1/86/48 

2.2. DOS 3.3 

DIversi-DOS 2C als Datei; #6-6/85/74 
Diversi-DOS 4C als Datei; #7-6/85/72 
Harddisk-Backup-Programm (DOS 3.3; 
u.a. Megaboard): #18-5/86/61 
File-Manager-Grundbefehle: #5-5/85/ 
6 

Neues FID-Dateikopierprogramm: 
#10-9/85/12 

DOS-3.3-Mover für Language-Card: 
#14-2/86/17 

2.3. ProDOS 

(versionsabhängige Programme geson¬ 
dert vermerkt) 

Diskettenkopierprogramme (1.0.1); #2- 
1/85/22 

Dateikopierprogramme (1.1.1): #8-8/ 
85/18 

Harddisk-Backup-Programm (ProDOS, 
u.a. Megaboard): # 18-6/86/30 
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Disk-Editor: # 17-5/86/8 + #18-6/86/ 
24 

Directory-Einleseprogramme: #4-4/ 

85/41 

Directory-Komprimierungsprogramm: 

#15-3/86/20 

Dateileseprogramm (TYPE-Befehl): 
#4-4/85/46 

Schnelles Boot-Programm für ProDOS: 
#10-9/85/20 

Block-Tracer (nur 1.0.1): #5-5/85/51 
FORMAT-Befehl (nur 1.0.1): #5-5/85/ 
56 

Kompatiblen-Patch-Programm: #2-1/ 
85/31 (1.0.1) + 5/86/59 (1,1.1; nicht 
auf Sammeldisk!) 

Erphi-160-Spur-Patch-Programm für 
„Superquick": #17-5/86/59 
Ehring-160-Spur-Patch-Programme 
(1.0.1): #11-11/85/29 

2.4. UCSD-Apple-Pascal 

Directory-Duplizierungsprogramm; #2- 
1/85/64 

Datei-Aufbau-Analyse-Prog ramme; 
#15-3/86/48 + #17-5/86/34 

3. BASIC 

(s.a. Grafik) 

3.1. Mac-BASIC und MBASIC 

Vierteiliger Macintosh-Microsoft-BA- 
SIC-Kurs: Demoprogramme (nicht auf 
Sammeldiskl): 2/84/54 + 1/85/78 -k 4/ 
85/63 + 8/85/60 

Z80-MBASiC-Kompaktkurs: Befehls¬ 
beispiele (nicht auf Sammeldiskl): 9/ 
85/48 

3.2. Applesoft-Befehlserweiterungen 

INSTRING-Befehl: #1-2/84/40 
DELETE-Array-Befehl: #1-2/84/51 
FRE-Befehl (Garbage-Collection): #2- 
1/85/33 

INPUT-Anything-Befehl: #4-4/85/70 -H 
5/85/50 

INPUT-Befehl mit Editierkommandos: 
#12-12/85/20 

RANDOM-Befehl: #5-5/85/69 
PRINT-USING-Befehl: #11-11/85/49 
QUICKSORT-Befehl: #13-1/86/16 
Quicksort-Demos (Applesoft): #13-1/ 
86/6 

Befehlssammiung (&GOTO, &GOSUB, 
&RESTORE, &SOUND. &SCROLL 
u.a.): #6-6/85/43 

CHRGET: Befehlserweiterungsroutine: 
#14-2/86/38 

(Hinweis: Komplettsammlung aller In¬ 
terpreterroutinen in Heft 12/85, 30-60; 
nicht auf Sammeldiskl) 

3.3. Applesoft-Programmierhilfen 

Applesoft-Zeileneditor (DOS 3.3) mit 
Renumber, Variablen-Referenz u.a. (nur 
für Fortsetzungsbezieher!); #16-4/86/ 
13 

Referenz-Prüfung (GOTOs, GOSUBs): 
#11-11/85/55 

Generator für Bildschirm-Menüs (Ap¬ 
plesoft); #4-4/85/20 
Konvertierung von Klein- in Großbuch¬ 
staben; #10-9/85/31 

4. Pascal 

4.1. UCSD-Apple-Pascal 

Pascal-Grundkurs: Übungsprogramme: 
#10-12/85/33 


Transzendentale Funktionen für Library: 
#5-5/85/35 

IDSEARCH-Befehl: #8-8/85/48 

P-Code-Komprimierungsprogramm: 

#10-10/85/50 

UCSD-6502-l/O-Demos; #14-2/86/48 
Funktionseingabe-Programm; #16-4/ 
86/58 

4.2. Kyan-Pascal 

Grundkurs: Übungsprogramme: #14- 
2/86/56 

Aubaukurs: Übungsprogramme -k 

String-Include-Datei: #15-3/86/32 
Kyan-Assembler: Übungsprogramme: 
#16-4/86/48 

4.3. Turbo-Pascal 

Pascal-Grundkurs: Übungsprogramme: 
#10-12/85/33 

Fußballweltmeisterschaft; Simulations¬ 
programm; #17-5/86/6 

5. Assembler 

5.1. 6502/65C02 

6502-Kurs: Demoprogramme (nicht auf 
Sammeldiskl): 7/85/33 
65C02-Disassembier: #1-1/84/14 
65C02-Makros für 6502-Assembler: 
#4-4/85/30 

Disassembler für undokumentierte 
6502-Opcodes: #5-5/85/31 
32-Bit-Hex-Dez-Konvertierung: #7-7/ 
85/69 

Takt-Zähler-Programm: #10-9/85/32 
(Hinweis: Komplettsammlung aller lega¬ 
len Monitorroutinen ll-k/e/c in Heft 5/ 
85/52; nicht auf Sammeldiskl) 

5.2. Z80 

Z80-Kurs: Demoprogramme (nicht auf 
Sammeldiskl); 11/85/33 

5.3. 68000 

68000-Disassembler für Mac (in MS- 
BASIC): 5/85/41; gesonderte 3,5-Zoll- 
Disk, solange Vorrat reicht, 

68000-Kurs: Demoprogramme (nicht 
auf Sammeldiskl): etwa 7/86 

6. Grafik 

(s.a. Drucker) 

6.1. Applesoft/6502-Programme 

Grafik-Demos für Anfänger: #8-8/85/ 
67 -k 13-1/86/61 

Turtle-Grafik in Basic: #1-1/84/26 
Funktionsplotter für einfache Hlres: #5- 
5/85/17 

Funkionsplotter für doppelte Hires: 
#18-6/86/6 

Dreidimensionaler Funktionsplotter: 
#14-2/86/43 

Hires-Graflk-Editor mit Zirkelbefehlen 
u.a.: #10-10/85/6 

Sprite-Editor für Animationen: #11-11/ 
85/6 

Textausgabe in Hires-Grafik: #12-12/ 
85/16 

Konvertierung Double-Hires ^ Hires: 
#5-5/85/25 

6.2. Applesoft-Befehlserweiterungen 

Double-Lores-Grundbefehle; #1 -1/84/ 
32 

Double-Lores-Befehlssammlung: #8- 
8/85/32 


Double-Hires-Grundbefehle: #1 -2/84/ 
24 

Interpreter-Änderung für Double-Hires: 
#10-10/85/14 

Pseudo-Double-Hiresfür ll-k: #6-6/86/ 
16 

XPLOT-Befehl; #4-4/85/14 
BOX-FILL-Befehl, SWAP-Befehl u.a.: 
#6-6/85/6 

HSCRN-Befehl, BOX-COPY-Befehl 
u.a.: #8-8/85/24 

Hlres-Befehlssammiung (INVERT, 
TURN, COPY, SWAP, MERGE, 
SHRINKu.a.): #13-1/86/30 

6.3. UCSD-Pascal 

Zeichensatz-Generator: #14-1/86/43 

7. Mathematik/Technik 

Grundrechenarten mit größerer Genau¬ 
igkeit (Applesoft): #4-3/85/30 
Applesoft-Fließkommazahlen: Demo- 
Programme: #15-3/86/12 
Binäre Grundrechenarten: #14-2/86/6 
+ #16-4/86/6 

Primzahlenberechnung (Geschwindig¬ 
keitswettbewerbe): #1-2/84/70 sowie 
#4-3/85/56 

Pi-Berechnung bis 15000 Stellen: #17- 
5/86/42 

Fakultätenberechnung (bis max. 99991): 
#8-8/85/56 


Fourier-Analyse: #6-6/85/38 

Meßwert-Verarbeitungsprogramm; 

#15-3/86/58 

8. Schule und Beruf 

Vokabeltrainer mit Englisch-Grundwort- 
schatz: #13-1/86/20 
Legasthenie-Testgenerator: #4-3/85/ 
22 

Einkommensteuerprogramm 1984 
(MBASIC): #3-1/85/45 
Haushaltsverwaitungsprogramm: #16- 
4/86/42 

Simplex-Programm für Betriebswirte: 
#14-1/86/56 

Matrizen-Programm für Betriebswirte; 
#14-2/86/29 

Adreßverwaltung mit dBase II (lauffähig 
auf dBase V2.4 vom 1,4.83 und CP/M 
2.2 sowie 2.26): #8-8/85/40 + 6/86/52 

9. Spiele/Musik 

Cosmo-Crumble: Weitraum-Abschieß- 
spiel: #12-12/85/6 

Pyramid-Pitty: Hires-Reaktionsspiel: 

#7-7/85/6 

Solitaire: #6-6/85/64 
Puzzle-Spiel: #10-10/85/65 
Zeichenjagd (Einzeller): #8-8/85/69 
Tonprogramm (zweistimmig): #16-4/ 
86/60 



Apple DOS 3.3 — 

Tips und Tricks 

von U. Stiehl 

3., völlig überarb. Aufl. 1986, X, 203, 
mit zahlreichen, ausführlich kommentierten 
Programmlistings, kart., DM 28,- 
Begleitdiskette ebenfalls DM 28,- 

Dr. Alfred Hüthig Verlag • Postf.10 28 69 • 6900 Heidelberg 1 
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Sidekick 

Macintosh-Büro-Manager 

Borland International (Helmsoeth 
Software) ist mittlerweile bei Ap¬ 
ple-Benutzern durch das Turbo- 
Pascal zum Begriff für preiswerte 
Software geworden. Nachdem die 
Apple-Il-Implementierung des 
Pascal-Interpreters eine weite Ver¬ 
breitung gefunden hat, bemüht 
sich Borland nun auch um die Mac- 
intosh-Besitzer. 

Das für den IBM PC entwickelte 
Sidekick bietet auf einem Macin¬ 
tosh (Minimalkonfiguration, 128K, 
eingebautes Laufwerk) eine Reihe 
von Möglichkeiten, die die tägliche 
Büroarbeit - und nicht nur diese - 
erleichtern und neben anderen An¬ 
wendungen parallel laufen können 
(bislang nur als amerikanische Ver¬ 
sion für DM 260,-). Diese Möglich¬ 
keiten verbergen sich unter dem 
Apple-Pull-Down-Menü und kön¬ 
nen so jederzeit aufgerufen 
werden. 

Darüber hinaus ist es möglich, 
einige dieser Punkte auch als reine 
Anwendungen aufzurufen, die 
dann noch etwas mehr Komfort 
und Umfang bieten. 

Sidekick enthält u.a.: 

-Telefon-Liste 

- Termin-Kalender und Wecker 

- Arbeitsblätter für Kreditkarten, 
Geldausgaben und Memos 

- Mini-Textverarbeitung 

- Taschenrechner 
-Terminal-Betrieb 

- Die Telefon-Liste umfaßt neben 
Name, Anschrift, Stichwort und 
Bemerkung auch den Gebühren¬ 
schlüssel, wodurch während eines 
Gesprächs, das ebenfalls durch 
den Macintosh angewählt werden 
kann (sofern man in den USA 
wohnt und über das Borland Pho- 
ne-Link-Interface verfügt), sofort 
die Gebühren ermittelt und in dem 
Phone Log, einem persönlichem 
Telefon-Report, eingetragen wer¬ 
den können. Dadurch ist man je¬ 
derzeit auf dem laufenden über 
seine Telefon-Rechnung und - 
was noch wichtiger ist - wer sie 
verursacht. Wer nicht in den Ge¬ 
nuß kommt, seinen Macintosh als 
Wählautomaten benutzen zu kön¬ 
nen, wird sich vielleicht etwas 
schwertun, bei allen Gesprächen 
den Rechner zu bemühen, wo¬ 
durch sich der Stand des Telefon- 
Reports nicht ganz mit der Rech¬ 
nung der Bundespost decken 
dürfte. 

Viel wichtiger und praktischer er¬ 
scheint die Möglichkeit, jederzeit 


die Daten eines Gesprächspart¬ 
ners auf den Schirm zu bekom¬ 
men, um somit schnell eine Num¬ 
mer oder Adresse zu finden oder 
auch während eines Gesprächs 
nachzuschauen, mit wem man es 
gerade zu tun hat. Im Telefon-Re¬ 
port können dann Gesprächsnoti¬ 
zen eingetragen werden. Mit dem 
sog. Print-Manager kann diese Te¬ 
lefon-Liste mit unterschiedlichem 
Umfang im Pocket-Format ausge¬ 
geben werden. 

- Im Termin-Kalender können al¬ 
le Verabredungen eingetragen 
werden, um sie später auf Knopf¬ 
druck parat zu haben. Dabei kön¬ 
nen sowohl einzelne Tage als auch 
eine ganze Woche (Week-at-a- 
Peek) oder ein ganzer Monat über¬ 
blickt und nach Stichworten abge¬ 
sucht werden. Auch dieser Kalen¬ 
der kann in Pocket-Format ausge¬ 
geben werden. 

- Die Arbeitsblätter bieten Raum 
für (jeweils max. 15) Eintragungen 

a) über den Kontostand einzelner 
Kreditkarten, 

b) für eine kleine Liste der tägli¬ 
chen Ausgaben und 

c) für ein Memo-Blatt, in dem Din¬ 
ge eingetragen werden können, 
die man nicht vergessen sollte. 
Unter diesem Punkt wird auch der 
Wecker gestellt, der zum angege¬ 
benen Zeitpunkt (Datum, Uhrzeit) 
ein Alarm-Signal ertönen läßt. 

- Die Mini-Textverarbeitung bie¬ 
tet die Möglichkeit, kleine Doku¬ 
mente zu erstellen (z.B. zur Über¬ 
tragung mit der Terminal) oder vor¬ 
handene Textdateien zu editieren. 

- Der Taschenrechner ersetzt 
den normalen Taschenrechner im 
Apple-Menü. Neben den Grund¬ 
rechenarten werden hier auch die 
gängigen wissenschaftlichen und 
einige kaufmännische Funktionen 
unterstützt. Daneben wird, wie bei 
einer Rechenmaschine, ein Proto¬ 
koll der Rechnungen mitgeschrie¬ 
ben, das auch gedruckt werden 
kann. 

- Im Terminal-Betrieb können 
Dokumente über ein Hayes-kom- 
patibles Interface übertragen und 
empfangen werden, während an¬ 
dere Anwendungen laufen. Auch 
hier besteht die Möglichkeit des 
automatischen Anwählens (leider 
nur in den USA). 

Laut Auskunft der Firma Heim- 
soeth Software ist eine deutsche 
Version von Sidekick bislang nicht 
absehbar. An der Möglichkeit des 
automatischen Wählens wird je¬ 
doch gearbeitet. Es bleibt abzu¬ 
warten, wie sich die Deutsche 
Bundespost zu diesem Problem 
stellt. 


Programming Toolkits 

für Kyan-Pascal 2.0 


Toolkit I: System Utilities: Club- 
Preis DM 118,-; Normalpreis DM 
148,- (lieferbar) 

Toolkit II: Mouse Text: Club- 
Preis DM 118,-, Normalpreis DM 
148,- (lieferbar) 

Toolkit III: Advanced Graphics: 

Club-Preis DM 118,-, Normalpreis 
DM 148,- (Mitte Juni) 

Toolkit IV: Turtle Graphics: 

Club-Preis DM 68,-, Normalpreis 
DM 88,- (lieferbar) 

Toolkit V: Mouse Graphics: 

Club-Preis DM 158,-, Normalpreis 
DM 198,- (Mitte Juli) 

Alle Utilities werden als teils beid¬ 
seitig bespielte Disketten geliefert, 
die neben den Include-Files (meist 
Quelltexte) diverse Demos enthal¬ 
ten. Die Anleitungen selbst sind 
Loseblattlieferungen (z.B. bei den 
System Utilities 52 Druckseiten), 
die für den grauen Ordner von Ky- 
an 2.0 bestimmt sind. Zum Club- 
Preis werden nur Mitglieder des 
Kyan-Clubs beliefert. 

Toolkit I: System Utilities 

Diese Utilities decken verschiede¬ 
ne Bereiche ab: 

1. ProDOS-Utilities: Delete, Re- 
name, Copy, Set-Pefix, Get-Prefix, 
Lock, Unlock, Make-Directory, 
Get-Directory, Remove-Directory, 
Scan-File, Format, Print-File, 
Bsave, Bload, Set-Time, Get-Time, 
Set-Date, Get-Date, Get-Clock, 
Set-Clock, Find-Clock. 

2. Maus und Joystick: Find-Mouse, 
Init-Mouse, End-Mouse, Home- 
Mouse, Mouse-Click, Mouse-held, 
Mouse-moved, Mouse-x, Mouse- 
y, Set-Mouse-xy, Set-x-Bounds, 
Set-y-Bounds, Print-Mouse-Char, 
Button-0, Button-1, Joystick-x, 
Joystick-y. 

3. Bildschirmsteuerung (funktio¬ 
nieren teilweise nur auf lle/c): 
Clear-Screen, Clear-Line, Clear- 
End-of-Line, Clear-End-of-Page, 
Inverse, Normal, Tab, Scroll-up, 
Scroll-down, Col-80, On-40, On- 
80, Screen-Bottom, Screen-Top, 


Screen-Full, Cursor-x, Cursor-y, 
Get-Char, Machine-Identification. 

4. Zufaliszahlen: Random im Be¬ 
reich min..max, Rnd im Bereich 
0..1 , Seeding. 

5. Zahienkonvertierungsroutinen: 
Real - String, String - Real, Integer 
- String, String - Integer. 

6. Sortieren (alphabetisch und nu¬ 
merisch) sowie Mischen (bis zu 5 
Files). 

7. Line Parsing Routine. 

Toolkit II: Mouse Text 

Diese Utilities umfassen mehrere 
Dutzend Befehle für Fenstertech¬ 
nik usw. 

1. Cursor-Befehle: Set-Cursor, 
Obscure-Curser, Hide-Cursor, 
Show-Cursor. 

2. Interrupts: Check-Events, Get- 
Event, Post-Event, Set-Key-Event, 
Flush-Event, Peek-Event. 

3. Menü-Befehle: Init-Menu, Set- 
Menu, Menu-Select, Menu-Key, 
High-Light-Menu, Disable-Menu, 
DIsable-ltem, Check-Item, Set- 
Mark. 

4. Kontrollbefehle: FInd-Control, 
Set-Control-Max, Track-Thumb, 
Update-Thumb, Activate-Control. 

5. Fensterbefehle: Inlt-Window- 
Margin, Close-Window, Open- 
Wlndow, Find-Window, Front-Win¬ 
dow, Select-Window, Drag-Win- 
dow, Grow-Window, Screen-to- 
Window, Window-to-Screen, Clo- 
se-all, Window-Char, Window- 
String, Window-Block, Window- 
Text, Window-Op. 

Toolkit IV: Turtle Graphics 

Diese Diskette enthält diverse Hi- 
res- und Ton-Routinen. 

1. Turtle-Befehle: Init-Turtle, Turt- 
le-x, Turtle-y, Turtle-Angle, Graf- 
Mode, Text-Mode, Pen-Color, 
Turn, Turn-to, Move, Move-to, 
View-Port, Full-Port, Fill-Port, Fill- 
Area, Save-Hires, Load-Hires. 

2. Ton-Befehle: Beep, Note, 
Clock, Phaser. 

3. Balkendiagramme usw.: Bar- 
Chart, Pie-Chart, Plot-x-y. 


Hüthig Software Service 

Postfach 10 28 69 Heidelberg 
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Z80+ Card 


^ pRodukrE mjm 


getestet von Hans-Martin Eng 

Wie der Name schon andeutet, 
handelt es sich bei der Z80+ Card 
um eine Z80-Coprozessorkarte für 
den Apple 11+ und Ile. „Noch eine 
Z80-Karte“ sagen da vielleicht 
einige Leser, doch gibt es da eini¬ 
ge Punkte, die diese Appleerweite- 
rung gegenüber anderen CP/M- 
Karten auszeichnen. Ich will je¬ 
doch dem Testergebnis nicht vor¬ 
greifen. 

Zum Lieferumfang der 280+ Card 
gehören zum einen die Karte 
selbst, dann eine Diskette mit di¬ 
verser Software (allerdings ohne 
CP/M-Betriebssystem!) und zu¬ 
letzt ein Handbuch im DIN A4-For- 
mat. Beginnen wir mit der Hard¬ 
ware: 

1. Die Z80+ Card selbst 

Auf der 22cm 7cm großen Plati¬ 
ne befinden sich, neben einer 
Z80H-CPU, 64K RAM und diverse 
Steuerbausteine. Der Systemtakt 
wird von einem 16,000 MHz-Quarz 
erzeugt. Am linken Ende der Karte 
fallen noch ein Jumperblock und 
drei LED auf. Bis auf drei sind alle 
ICs in gedrehten Sockeln unterge¬ 
bracht, was eine hohe Kontaktsi¬ 
cherheit gewährleistet. 

Alle Bauelemente sind sauber ver¬ 
lötet, aufgrund der hohen Pak- 
kungsdichte der Karte mußten die 
Leiterbahnen jedoch reichlich 
dünn ausfallen. Es ist also Vorsicht 
geboten, wenn man mit spitzen 
Gegenständen operiert. 

Die 280+ Card ist die einzige mir 
bekannte CP/M-Karte, die sowohl 
zur weit verbreiteten Microsoft- 
Softcard als auch zur ALS-CP/M- 
Card kompatibel ist. Sie kann somit 
sowohl CP/M 2.20/2.23 als auch 
ALS-CP/M 3.0-Software einwand¬ 
frei verarbeiten. Dies geschieht in 
zwei getrennten Betriebsmoden. 

Im Betriebsmodus 0, angezeigt 
durch eine leuchtende gelbe LED, 
arbeitet die 280+ Card wie die 
normale Softcard - leider auch nur 
mit 2 MHz Takt. Sie greift dabei auf 
den normalen Arbeitsspeicher des 
Apple zu, der Speicher der Karte 
selbst kann als RAM-Disk verwal¬ 
tet werden. In diesem Betriebsmo¬ 
dus laufen alle CP/M-Programme 
für den Apple ohne Einschränkun¬ 
gen. Ob der Speicher der 280+ 
Card auch für den 6502 des Apple 
zugänglich ist, darüber schweigt 
sich das Handbuch leider aus. (Lt. 
Rücksprache mit dem Entwickler 
Dipl-Math. U.Zimmermann geht 
dies nicht, us) 


Im Betriebsmodus 1 legt der Apple 
jedoch „die Ohren an". Hier wird 
die Z80H mit 8 MHz getaktet (2 
MHz mehr als die ALS-Karte). Sie 
muß dabei keine zusätzlichen 
Wait-Zyklen ausführen, so daß die¬ 
se 8 MHz voll zur Geltung kom¬ 
men. In diesem Betriebsmodus 
greift die Z80+ Card nun auf den 
eigenen Speicher zu. Dies bedeu¬ 
tet, daß alle Programme, die spe¬ 
ziell auf den Apple-Speicher zu¬ 
greifen müssen, etwa für Hires- 
Grafik o.ä., nicht funktionieren. 
(Genauer gesagt, sie laufen zwar, 
erzeugen aber auch keine Grafik.) 
Hier wären vor allem MBASIC und 
GBASIC von der Softcard-Master- 
Diskette zu nennen. 

Die 280+ Card ist mit einem Inter¬ 
rupt-Timer ausgerüstet, der mit ca. 
62 kHz Interrupt-Signale für die 
Z80H erzeugt. Diese Interrupts 
können über den Jumperblock ab¬ 
geschaltet werden. Eine Nutzung 
bleibt wohl auf eigene Anwendun¬ 
gen beschränkt, da für die Nutzung 
der Interrupts keine Software mit¬ 
geliefert wird. Denkbar wären bei¬ 
spielsweise ein Druckerpuffer o.ä.. 
Die Umschaltung zwischen den 
beiden Betriebsmoden geschieht 
über einen Schreibzugriff auf den 
Softswitch $C080+n0 (n steht für 
Slot n). Da sich die Karte beim 
Einschalten im Betriebsmodus 1 
befindet, muß man den Softswitch 
betätigen, bevor man Softcard-CP/ 
M bootet. Ein Patchprogramm, das 
den Bootprozeß dahingehend mo¬ 
difiziert, daß der richtige Betriebs¬ 
modus eingeschaltet wird, befindet 
sich auf der mitgelieferten Dis¬ 
kette. 

2. Die Software 

Software für die 280+ Card wird 
auf einer 5 1/4"-Diskette mitgelie¬ 
fert. Auf ihr befinden sich sowohl 
DOS 3.3- als auch CP/M-Program- 
me. (Auf einer Seite wohlgemerkt.) 

2.1. DOS 3.3-Software 

Hier handelt es sich um Patch- 
Software für die CP/M-Versionen 
2.20 und 2.23. Das Programm 
BOOT-PATCH modifiziert, wie 
schon angedeutet, das BOOT-Pro- 
gramm von CP/M-Disketten; das 
Betriebssystem selbst bleibt un¬ 
verändert. So können alle Pro¬ 
gramme, die unter Softcard-CP/M 
laufen uneingeschränkt weiterver¬ 
wendet werden. 

Nun hat man schon eine 8 MHz- 


CP/M-Karte, da möchte man den 
Rechner gefälligst auch mit 8 MHz 
laufen lassen. Abhilfe bringt hier 
das Programm CP/M-Patch. Die¬ 
ses patcht Softcard-CP/M-Disket- 
ten so, daß nun alle Software im 
Betriebsmodus 1 abgearbeitet 
wird. Dieses gepatchte CP/M 
nennt sich Z80+-CP/M. (lies: „zet 
achtzig plus ce pe em".) 

2.2. CP/M-Software 

Hier bleiben eigentlich keine Wün¬ 
sche offen. Für den Softcard-Mo- 
dus wird ein RAM-Disk-Treiber für 
die 64K RAM der 280+ Card mit¬ 
geliefert. Für das Z80+-CP/M gibt 
es gleich eine ganze Anzahl ver¬ 
schiedener RAM-Disk-Treiber, da¬ 
zu noch eine Disk-Utility, mit der 
man Disketten formatieren und ko¬ 
pieren kann. Man kann damit auch 
das Betriebssystem auf 40-Spur- 
laufwerke umstellen. Schließlich 
kann man das 280+-CP/M auch 
an verschiedene gebräuchliche 
80-Spur-Controlier, wie den Erphi- 
oder den Ehring-Controller an¬ 
passen. 

2.3. Das Z80+-CP/M 

Dieses CP/M hat es in sich! Der 
CCP (Console Command Proces¬ 
sor) wurde um einige Befehle er¬ 
weitert: 

ALL - ist ein erweiterter DIR-Be- 
fehl. Angezeigt werden zusätzlich 
zur File-Länge auch der Status. 
Selbst SYS-File werden aufqeli- 
stet. 

BOOT - ersetzt den COMmand- 
File gleichen Namens von der 
Softcard-Master-Disk. 

GO - ersetzt ebenfalls einen 
COM-File der Softcard-Master- 
Disk. Damit kann man einen COM- 
File wieder starten, den man vor¬ 
her verlassen hat. Dieser Trick 
funktioniert nur, wenn das neu zu 
startende Programm nicht sich 
selbst reloziert, wie das z.B. bei 
allen Debuggern der Fall ist. 

Je nach Hauptspeichergröße ver¬ 
fügt man nach dem Kaltstart über 
32, 48 oder 11 OK Speicherkapazi¬ 
tät auf einem Pseudolaufwerk P:. 
Wem das noch nicht reicht, der 
kann sich eine RAM-Karte zule¬ 
gen. Für SATURN-, IBS-AP17-, 
SOLARIM- und CSC-RAM-Karten 
sind Treiber auf der Utility-Diskette 
mitgeliefert, wer eine andere Karte 
besitzt, wird nach Herstelleranga¬ 
ben auch nicht alleingelassen. 

Die normale Disketten-2ugriffsge- 
schwindigkeit setzt dem Faß aller¬ 
dings die Krone auf. Fragen Sie 
mich nicht, wie, aber sie wurde um 
bis zu einen Faktor 4 (!) erhöht. 

Da alles so schön klingt, muß ich 
dem Enthusiasmus einen (aller¬ 


dings kleinen) Dämpfer verpassen. 
Es gibt Programme, die unter dem 
gepatchten CP/M nicht laufen. Der 
Hersteller nennt hier den Macro- 
Assembfer M80 und das zugehöri¬ 
ge CREF80, beide auf der ALDS- 
Diskette von Microsoft zu finden. 
Für diese Programme wird ein 
Patch genannt, der sie wieder zum 
Laufen bringen soll. Das konnte ich 
leider in Ermangelung dieser Pro¬ 
gramme nicht nachprüfen. Ebenso 
stieg ein mir kurzfristig zur Verfü¬ 
gung gestellter F80-Fortran-Com- 
piler aus. Hier gibt es jedoch eine 
einfache Abhilfe: Im Softcard-Mo- 
dus compilieren und linken, die 
daraus erzeugten COM-Files dürf¬ 
ten dann wiederum mit 8 MHz lauf¬ 
fähig sein. 

Einwandfrei funktionieren jedoch 
Wordstar und Turbo-Pascal, auch 
Multiplan entwickelt eine unge- 
kannte Aktivität. Mit Turbo-Pascal 
konnte ich auch den vierfachen 
Geschwindigkeitszuwachs beim 
Rechnen nachprüfen. 

3. Das Handbuch 

Dieses besteht aus einem DIN A4- 
Heft mit Ringheftung (das im Mai 
neu aufgelegt worden Ist, us). 
Nach einer kurzen Einleitung fol¬ 
gen sehr ausführliche Erläuterun¬ 
gen zu Funktion und Installation 
der Karte. Weitere 34 Seiten gelten 
einer detaillierten Beschreibung 
der mitgelieferten Software. Dann 
folgen noch Anweisungen, um 
Fehlerursachen einzukreisen. Der 
Anhang besteht aus verschiede¬ 
nen Tabellen. 

Das Handbuch ist mit Februar 
1986 datiert. Inzwischen war der 
Hersteller nicht untätig, eine fünf¬ 
seitige Ergänzung des Handbuchs 
dokumentiert das. Diese Ergän¬ 
zung behandelt neue RAM-Disk- 
Treiber auf der Utility-Diskette für 
die IBS-AP33 (256K bis 1 M) und 
die OHO-512-RAM-Karte. Außer¬ 
dem wird ein Patchprogramm für 
den CAT-Controller mitgeliefert, 
Turbo-Pascal-Besitzer können 
sich über einen Include-File freu¬ 
en, der ihnen wieder die Apple- 
Grafik zugänglich macht. 

Fazit 

Die 280+ Card ist meines Erach¬ 
tens rundherum gelungen. Das 
fehlende Betriebssystem wird 
durch die mitgelieferte Software 
mehr als wettgemacht. Da man au¬ 
ßerdem praktisch über zwei CP/M- 
Karten verfügt, erscheint mir der 
Preis von ca. DM 700.-- nicht zu 
hoch. Vergleicht man diesen näm¬ 
lich mit dem verschiedener ande¬ 
rer schneller CP/M-Karten, 
schneidet die 280+ Card nicht un- 
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günstig ab. Daß die Grafikbefehle 
des GBASIC nicht funktionieren, 
kann man der Karte nicht anlasten. 
So bleibt eigentlich nur noch der 
gute Eindruck übrig, den die Karte 
bei mir hinterließ. Die reichlich mit¬ 
gelieferte Software macht sie vor 
allem für Umsteiger interessant. 
CP/M-Anfänger können sich viel¬ 
leicht auch bald freuen. Der Her¬ 
steller bemüht sich um eine günsti¬ 
ge CP/M-Lizenz, die er dann für 
einen geringen Aufpreis an die 
Kunden weitergeben will. 

Bleibt mir nur noch übrig zuzuge¬ 
ben, daß ich die Karte nach Been¬ 
digung des Tests nur äußerst un¬ 
gern aus meinem Rechner wieder 
herauszog. (Herr Eng hat sich in¬ 
zwischen eine Karte gekauft, us) 


BASF-Reinigungs- und Justage¬ 
disketten 

Auf der diesjährigen „Mikrocom¬ 
puter ’86" in Frankfurt stellte die 
BASF als Neuheit Reinigungs- und 
Justagedisketten für die neuen 
3.5"-Laufwerke vor. 

Nach den Angaben des Herstellers 
erspart vorsorgliches, allwöchentli¬ 
ches Reinigen der Magnetköpfe 
mit einer Reinigungsdiskette dem 
Anwender bei geringem Geld- und 
Zeitaufwand Störungen und 
Datenverluste. 

Die Schreib-ZLeseköpfe der Flop- 
py-Disk-Laufwerke gleiten im Be¬ 
trieb auf der Oberfläche der Dis¬ 
kette entlang. Da dieser Kontakt 
nie absolut staubfrei erfolgt, kön¬ 
nen Staub- und Schmutzteilchen 


auf den Kopf gelangen und 
Schreib-ZLesefehler verursachen. 
BASF-Reinigungsdisketten befrei¬ 
en den Magnetkopf von Ablage¬ 
rungen und nehmen den Schmutz 
auf. Sie werden als ein- und zwei¬ 
seitige Disketten angeboten. 
Während die Anwendung der Rei- 
nigungsdisketten-für jeden Floppy- 
Besitzer problemlos ist, sind die 
Justagedisketten für Servicetech¬ 
niker und Fachleute entwickelt 
worden. 

Die BASF-Justage-FlexyDisk wird 
zusammen mit einem Oszillogra¬ 
phen zum Prüfen und Reparieren 
von Diskettenlaufwerken verwen¬ 
det. Auf der Justagediskette sind 
dazu Informationen in Form eines 
optischen Informationsmusters 


hochpräzise aufgezeichnet. Am 
enfachsten lassen sich diese Infor¬ 
mationen mit dem Testbild beim 
Fernsehen vergleichen. Mit deren 
Hilfe kann der Fachmann durch 
Messen und Auswerten von Lese¬ 
signalen am Oszillographen die 
Spurlage, den Kopfeinstellwinkel 
und die Justage des Indexsektors 
überprüfen und korrigieren. Die 
BASF-FlexyDisk hat den Vorteil, 
daß Auswertung, Erkennen der Ur¬ 
sachen und gleichzeitige Korrektur 
in einem dynamischen Prozeß er¬ 
folgen können. Die aufgezeichne¬ 
ten Informationen basieren auf den 
für die Industrie weltweit gültigen 
Standards ECMA und ANSI. 


Jörg Bliesener beantwortet 
CP/M- und Wordstar-Leserbriefe 


Wenn Sie eine Frage haben, so 
schreiben Sie uns. Das Problem 
muß jedoch eindeutig und nach¬ 
vollziehbar geschildert werden. Al¬ 
so Gerätekonfiguration, Pro¬ 
grammversion usw. genau an¬ 
geben! 

Spezialfragen, die wir selbst beant¬ 
worten können, erledigen wir 
schriftlich. Fragen, die wir nicht be¬ 
antworten können und die zugleich 
von allgemeinerem Interesse sind, 
veröffentlichen wir im Peeker. 


Wordstar-Patch-Tabelle 

Benötige vollständige Patch-Tabel¬ 
le für WS.COM Version 3.0, wo ist 
diese zu haben? 

Armin Klauß, Karlsruhe 

Antwort: 

Der Wordstar-Installation-Guide 
sowie die Wordstar-Customiza- 
tion-Notes erhalten Sie bei jedem 
Distributor von Micropro-Software. 


Wordstar und dBase 

Ich besitze einen Apple und benut¬ 
ze zum Textverarbeiten „Word¬ 
star" und als Dateiprogramm 
„dBase N“. Im großen und ganzen 
bin ich mit diesen Systemen zu¬ 
frieden, doch einige Änderungen 
würden das Arbeiten noch mehr 


erleichtern. Zwar besitze ich das 
Installationsprogramm für „Word¬ 
star“, doch gewisse Grundeinstel¬ 
lungen werden dort mit dem Hin¬ 
weis auf Customization Notes nicht 
behandelt. Vielleicht können Sie 
mir behilflich sein. 

Wordstar: 

1. Sofortiger Aufruf von Drive B: 
als aktuelles Laufwerk 

2. Festlegung linker Rand z.B. 05 
und rechter Rand z.B. 75 

3. Löschen von „insert on" 

4. Änderung der Zeilenzahl pro 
Wordstarseite 

5. Druckausgabe: Bei Aufruf von P 
muß erst umständlich entweder mit 
Return oder entsprechend mit Y 
oder N geantwortet werden. Kann 
man diese Prozeduren einfach um¬ 
gehen, oder wie lassen sich diese 
Voreinstellungen ändern? 

6. Wenn ich Wordstar starte, erge¬ 
ben sich noch folgende Probleme: 
Erst durch Drücken von 2 x Escape 
funktioniert Groß- und Kleinschrei¬ 
bung, allerdings mit einigen Ein¬ 
schränkungen. Bei Eingabe von < 
erscheint Ä, bei > dann ü, bei ? 
dann ö, bei ü dann ß, bei (dann ä, 
bei) dann ü und bei ! dann ö. Um 
die Klammern auf den Bildschirm 
zu bringen, schalte ich dann einmal 
Escape und um wieder normal 
schreiben zu können, drücke ich 
wieder 2 x Escape. 


dBase: 

1. Von dBase aus lassen sich mit 
„set call on" Assemblerroutinen 
starten. Wie funktioniert das? Wel¬ 
cher Speicherbereich muß benutzt 
werden, ohne daß das dBase-Pro- 
gramm überschrieben wird etc.? 

2. Wie funktioniert die unmittelbare 
Steuerung von Peripheriegeräten 
überden Befehl CHR{numerischer 
Ausdruck)? Ich möchte das 
Schriftbild meines Druckers über 
diesen Befehl ändern. Ich habe ei¬ 
nen Epson RX-80 Drucker mit 
Centronic-Schnittstelle. 

Ich bedanke mich schon jetzt füi 
Ihre Mühe und hoffe, daß Sie mir in 
einigen Punkten helfen können. 
Horst Peter, Mainz 

Antwort: 

Zu Wordstar: 

1. Sofortiger Aufruf von Drive B: 
als aktuelles Laufwerk 
Dies ist mittels eines kurzen As¬ 
sembler-Programms möglich, das 
im Wordstar ab Speicheradresse 
02E0H installiert wird. Folgende 
Bytes sind dazu notwendig; 

02E0H OEH 
02E1H0EH 
02E2H 1EH 
02E3H 01H 
02E4H C3H 
02E5H 05H 
02E6H OOH 


t> 

02A4H C^H 
02A5H EOH 
02A6H 02H 

Dieses Assembler-Programm wird 
bei jedem Start des Wordstars auf¬ 
gerufen und schaltet auf Laufwerk 
B um. 

2,3. Die Adresse der Bytes, in de¬ 
nen der linke oder rechte Rand 
bzw. Insert gespeichert wird, ist; 
Label/Adresse/Standardwert 
linker Rand INITLM:/037FH/00H 
rechter Rand INITRM:/0380H/40H 
(=64D) 

Insert ITITOG:/0362H/FFH 
Beachten Sie, daß die Werte des 
linken und rechten Randes jeweils 
um eins dekrementiert abgespei¬ 
chert werden. Der rechte Rand 
wird automatisch auf den Wert 
(Bildschirmbreite-4) gesetzt, falls 
er größer sein sollte. Beim Insert- 
Flag wird OOH für „Insert aus" und 
FFH für „Insert an" eingesetzt. 

4. Die Seiten länge In Zeilen wird 
bei Adresse 0367H im Label INIT- 
PF:-M abgespeichert. Jedoch muß 
für den korrekten Betrieb mit ei¬ 
nem Typenraddrucker im Label IN- 
ITPF:-f 2 und INITPF:-h 3 auf 
Adresse 0368H und 0369H die 
Anzahl der Zeilen pro Seite multi¬ 
pliziert mit 8 als Wort (Low Byte 
zuerst) stehen. 
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5. Die Abfrage der Werte bei der 
Druckausgabe können Sie mit 
ESC abbrechen. Dabei werden 
dann für die noch nicht abgefrag¬ 
ten Werte die Standardeinstellun¬ 
gen eingesetzt. Wenn Sie diese 
ändern wollen, so ist das ab Adres¬ 
se 03CAH (Label PODBLK:) mög¬ 
lich; 

Label/Adresse/Standardwert 
Diskettenausgabe 
PODBLK:/03CAH/00 (- nein) 
Form-Feeds benutzen 
PODBLK:-h1/03CBH/00 {= nein) 
Seitenform unterdrücken 
PODBLK:-H2/03CCH/00 {= nein) 
Pause zwischen Seiten 
PODBLK:-h 3/03CDH/00 (= nein) 
Auch hier gilt wieder: 

DFFH = ja. OOH = nein 

6. Das Tastatur-Problem. Die Pro¬ 
grammierer von MicroPro haben 
sich durchaus etwas einfallen las¬ 
sen, um dem Apple die Groß- und 
Kleinschreibung beizubringen. Da¬ 
zu gehört das von Ihnen geschil¬ 
derte Problem. Wahrscheinlich er¬ 
scheint beim Starten Ihres Word- 
stars auch die Meldung „Videx 
with Software U/L-Case“ oder so 
ähnlich. Das bedeutet, daß der 
Wordstar softwaremäßig die Groß/ 
Kleinschreibung erzeugt, die die 
Original-Apple-Tastatur ja nicht 
kann. Einmal ESC drücken bedeu¬ 
tet dann, daß das nächste Zeichen 
in Großschreibung umgewandelt 
wird, zweimal schaltet in den 
„Shift-Lock"-Modus um. Weiter¬ 
hin kann der Origlnal-Apple-Il kei¬ 
ne Umlaute. Diese werden eben¬ 
falls im „Shift-Lock"-Modus er¬ 
zeugt, und zwar genau mit den von 
Ihnen erwähnten Tasten. Das nützt 
zwar Besitzern eines Apple II oder 
II Plus mit Original-Tastatur, lle- 
Benutzer oder Leute, die eine ex¬ 
terne Tastatur Ihr eigen nennen, 
sind aber nicht sehr glücklich dar¬ 
über. Um auch Ihnen das Gefühl 
eines „richtigen" Wordstars zu be¬ 
scheren, sind die folgenden Pat¬ 
ches nötig: 

Label/Adresse/Wert 

APLFLG:/02D7H/05H 

/411BH/00H 

/41C0H/00H 


Zu dBase: 

1. Der Speicherbereich für Maschi¬ 
nenprogramme liegt ab AOOOH. 

2. Die Ausgabe eines Textes mit 
der CHR-Funktion funktioniert 
ganz normal, nur ist zu beachten, 
daß die verschiedenen CHR-Funk- 
tionen in einem ?-Befehl nicht 
durch Kommata getrennt werden, 
sondern mit dem „-h"-Operator 
zusammengefügt werden, weil 
dBase sonst nach jedem Datenfeld 
ein Leerzeichen einfügt. Die Um¬ 


schaltung auf Kursivdruck funktio¬ 
niert also so: 

?CHR(27)-FCHR(52) 


Wordstar und Imagewriter 

Sie haben in den Peeker-Ausga- 
ben mit „CP/M für Einsteiger" und 
„MBASIC für den Applesoft-Pro- 
fi‘‘ein für mich sehr interessantes 
Thema aufgegriffen. Ich möchte 
darüber hinaus mehr über das Pro¬ 
grammieren des 8080/Z80-Pro- 
zessors sowie den Umgang mit 
dem CP/M-Betriebssystem und 
Apple-Ports erfahren. Sicher wür¬ 
de dieses Thema auch einen gro¬ 
ßen Kreis Ihrer Leserschaft inter¬ 
essieren. Mit dem folgenden Pro¬ 
blem komme ich leider mangels 
(für mich) geeigneter Literatur und 
trotz Erfahrungen mit dem 6502- 
Prozessor nicht zurecht: Ich möch¬ 
te Text, den ich mit Hilfe eines 
Textverarbeitungsprogramms 
(Wordstar) auf einem Apple II eu- 
roplus unter dem Betriebssystem 
CP/M erstellt habe 

- auf den Apple-Imagewriter mit 
serieller Schnittstelle über Slot #1 
(wie unter CP/M vorgesehen) aus¬ 
geben 

- auf einer Schreibmaschine mit 
paralleler Schnittstelle mit Parallel- 
Interface über Slot #2 (ist unter 
CP/M leider nicht vorgesehen) 
ausgeben. 

Wichtig ist für mich dabei natürlich, 
daß ich das Interface in Slot #1 
oder sonstwo nicht wechseln muß 
(Parallel <-> Seriell). Lieber wür¬ 
de ich unterschiedliche Disketten 
(d.h. modifizierte Betriebssyste¬ 
me) für die unterschiedliche Text¬ 
ausgabe verwenden. Ich würde 
mich freuen, wenn Sie auf diese 
Fragen in Ihrer Zeitschrift eingehen 
könnten oder, falls sich diese An¬ 
gelegenheit mit einem unbedeu¬ 
tenden Patch erledigen lassen soll¬ 
te, um einen Hinweis im Peeker. 
Dipl.-Ing. Winfried Neubert, Berlin 

Antwort: 

Um den von Ihnen erwünschten 
Effekt, eine Datei vom Wordstar 
aus in S/of2ausdrucken zu lassen, 
zu erreichen, ist es am empfeh¬ 
lenswertesten, den Wordstar zu 
ändern. 

Um eine Druckausgabe in Slot 2 zu 
bewirken, braucht nur ein einziges 
Byte geändert zu werden, und 
zwar an Adresse 071 FH (IN- 
STALL-Label LISEND:-h2). Nor¬ 
malerweise hat es den Wert 05. 
Wenn Sie dieses Byte auf 04 än¬ 
dern, ist alles erledigt. 

Zum Ändern brauchen Sie zwei 
Disketten: Eine mit dem CP/M-Be¬ 


triebssystem und eine mit Ihrem 
Wordstar. Das Ändern geht wie 
folgt vor sich: 

CP/M-System in Laufwerk A, auf 
Laufwerk A umschalten, „DDT" 
und <Return> tippen. Nach dem 
Prompt des DDT die Wordstar-Dis- 
kette einlegen und „IWS.COM" 
und <Return> eingeben. Wenn 
die Datei geladen wurde, geben 
Sie „S71F“ ein und drücken wie¬ 
der die <Return>-Taste. Nun 
müßte erscheinen: 

071F 05 

und der Cursor sollte hinter der 05 
stehen. Tippen Sie einfach „04" 
und <Return>, gefolgt von „." 
und <Return>. Nun sehen Sie 
wieder den DDT-Prompt 
Drücken Sie CtrI-C, und Sie lan¬ 
den wieder im Betriebssystem. Mit 
„SAVE 66 WS2.COM" speichern 
Sie die geänderte Version auf Dis¬ 
kette ab. 

Sie haben nun zwei Wordstar-Ver- 
sionen auf Ihrer Diskette. Die eine, 
WS, druckt auf Slot 1, die andere, 
die mit WS2 gestartet wird, gibt die 
zu druckenden Daten auf Slot 2 
aus. Weiterhin müssen Sie die 
Adresse 0717 (GSWTGH:) auf 
01H ändern 


Wordstar und zwei Drucker 

Ich bin im Besitz eines Apple-Il- 
Kompatiblen mit einem Druckerin¬ 
terface, einer 80-Zeichenkarte und 
einer Original-Super-Serial-Card. 
Das Druckerinterface steckt im 
Slot 1, die Super-Serial-Card in 
Slot 4. Die 80-Zeichen-Karte be¬ 
findet sich im Slot 3. Da die Z80- 
Karte fest eingebaut ist, entfällt 
Slot 2. 

An der Super-Serial-Card ist ein 
Typenraddrucker angeschlossen. 
Früher benutzte ich als Textverar¬ 
beitungsprogramm den Applewri- 
ter, mit dem ich problemlos zwi¬ 
schen Slot 1 und Slot 4 umschal¬ 
ten konnte, um den Matrix- oder 
Typenraddrucker anzuwählen. 

Nun legte ich mir das CP/M-2.2- 
Betriebssystem (56K-Version 
2,20B) und den Wordstar zu. Nach 
der Anpassung des Wordstar läuft 
alles problemlos. Nur muß ich im¬ 
mer die Karten im Slot 1 austau- 
schen, um auf dem Matrix- oder 
Typenraddrucker zu drucken. Um 
dies zu vermeiden, möchte ich die 
Super-Serial-Card im Slot 4 
lassen. 

Da ich sowieso zwei Wordstar-Ver- 
sionen besitze (eine für den Ma¬ 
trix-, eine für den Typenraddrucker 
angepaßt), wäre es doch sicher 
möglich, das BIOS von CP/M so 
zu verändern, daß der LST-Ausga- 


bevektor nicht Slot 1, sondern Slot 
4 anspricht Dies habe ich bereits 
versucht, indem ich unter STAT- 
.COM die Adresse DD2C -01 auf 
DD2C -04 abgeändert habe. Nach 
dieser Änderung reagierte jedoch 
die SSC-Karte nicht. 

Nun meine Frage an Sie: Können 
Sie mir vielleicht die Adressen 
nennen, die ich ändern muß, damit 
der LST-Befehl nicht Slot 1, son¬ 
dern Slot 4 anspricht? 

Für Ihre Bemühungen recht herzli¬ 
chen Dank. 

Peter Westphal, Olching 

Antwort: 

Die Änderung des CP/M ist 
schwierig. Ich würde Ihnen viel 
eher einen Patch des Wordstars 
empfehlen. Dieser stellt nämlich 
die erforderlichen Programme zur 
Ausgabe von Daten direkt über 
Ports zur Verfügung. Im Wordstar- 
Installationshandbuch finden Sie 
ab Adresse 0728H (INSTALL-La- 
bel POBSY:) die entsprechenden 
Speicherstellen. Die Portadressen 
der SSC lauten; 

Datenport: 0E0C8H (für Slot 4) 
Statusport: 0E0C9H 
Receive-Ready-Maske: 08H 
Transmit-Ready-Maske: 10H 


Zur Wordstar-Anpassung im 11/ 
85, S. 61 

Trotz verschiedener Versuche, 
den 2. Zeichensatz (deutsch) auf 
meiner videxkompatiblen 80-Zei¬ 
chenkarte für Wordstar zugänglich 
zu machen (TRMINI, IVON, INI- 
SUB), ist dies nicht gelungen (Ap¬ 
ple \\-\-, Wordstar 3.0). Welche 
Werte müssen In den entspre¬ 
chenden Adressen stehen? 
Manfred Schleich, München 

Antwort: 

Ab TRMINI; sollten die folgenden 
drei Bytes stehen: 

Adresse/Byte 

0292H/02H 

0293H/1BH 

0294H/28H 


MBASIC und Slot-Wechsel 

Im Peeker, 9/85 haben Sie einen 
interessanten Artikel zu MBASIC 
auf dem APPLE gebracht, Autor 
war Jörg Lange. Einige wertvolle 
Anregungen konnte Ich dem Arti¬ 
kel entnehmen, eine Frage ließ er 
aber unbeantwortet: 

Im Slot 2 meines apple-kompati¬ 
blen Rechners (Apple ll-H) steckt 
eine serielle Karte, über die ich 


Peeker 6/86 


69 















Daten aus einem Digitizer einlese, 
ln „Applesoft“ geht das einfach 
über den Befehl „IN#2“. Danach 
erscheinen übertragene Daten auf 
dem Bildschirm bzw. sind über 
z.B. „INPUT A$" einlesbar in eine 
Stringvariable. 

In MBASIC gibt es leider meines 
Wissens keinen Befehl, der die 
verschiedenen Slots anspricht. 
„INP" und „OUT“ funktionieren 
ebenfalls nicht, kurzum, ich habe 
es bisher noch nicht geschafft, in 
MBASIC Daten über die serielle 
Karte einzulesen. 

Können Sie mir weiterhelfen? Gibt 
es doch einen entsprechenden 
Befehl oder Ist mit bestimmten 
Peeks etwas zu erreichen oder...? 
Gerhard Vester, Freiburg 


Antwort: 

Es geht tatsächlich mit Peeks, der 
Peeker sagt Ihnen, wie: Um ein 
Byte von der seriellen Karte einzu¬ 
lesen, benötigen Sie folgende Be¬ 
fehlssequenz; 

WAIT STATUSPORT, RECVBIT: 

A$ = CHR$ (PEEK(DATENPORT)) 
Zum Ausgeben benutzen Sie den 
Befehl: 

WAIT STATUSPORT, XMITBIT: 
POKE DATENPORT, ASC(A$) 

Um so etwas wie die INKEY$-Fun- 
ktion zu simulieren, verwenden 
Sie: 

IFPEEK (STATUSPORT) 

AND RECVBIT THEN 

A$ = CHR$ (PEEK(DATENPORT)) 

ELSE A$=" “ 

Dabei steht jeweils in A$ das eln- 
oder auszugebende Zeichen. Na¬ 
türlich müssen noch die Variablen 
STATUSPORT, DATENPORT, 
RECVBIT und XMITBIT initialisiert 
werden. STATUSPORT gibt dabei 
die I/O-Adresse des Statusports 
der ACIA auf der seriellen Karte 
an, DATENPORT entsprechend 
den Datenport der ACIA. In RECV¬ 
BIT ist das Bit gesetzt, das im Sta¬ 
tusport den Empfang eines Zei¬ 
chens anzeigt, entsprechend gilt 
das gleiche für die Variable XMIT¬ 
BIT, die angibt, wann ein Zeichen 
gesendet werden kann. Für eine 
Super Serial Card in Slot 2 sind die 
Werte folgendermaßen: 

STATUSPORT = &HE0A9: 
DATAPORT = &HE0A8; 

RECVBIT = 8: 

XMITBIT = &H10 


Wordstar und Drive-Wechsel 

Mit Interesse habe ich in Peeker, 
3/86 den Artikel über Wordstar- 
Modifikationen gelesen. Obwohl 


ich nur Anwender bin, konnte mir 
der Artikel sehr helfen, denn es 
ärgerte mich schon länger, daß ich 
im Eröffnungsmenü viele Änderun¬ 
gen vornehmen mußte (Hilfsgrad 
auf 0, Blattlänge, Kopfabstand etc.) 
Jedoch vermisse ich in der Patch- 
Tabelle die Adresse für „Neues 
Laufwerk“, da ich ständig mit zwei 
LW arbeite. Könnten Sie mir diese 
wichtige Adresse mitteilen? 

Ferner habe ich folgendes Pro¬ 
blem: ich benutze einen Apple Ile, 
2 X 640K-Laufwerke mit Erphi- 
Controller und einen FX-80 mit 
APL-B-Drucker-Graphikinterface. 
Beim Booten von CP/M wird leider 
der Drucker nicht aktiviert. In der 
Anleitung zur APL-B wird angege¬ 
ben, daß das Betriebssystem mit 
DDT zu ändern ist. 

Ich bitte um Mitteilung, ob über die 
Änderung des CP/M ebenfalls 
schon ein Artikel in der o.g. Form 
erschienen ist. Das wäre sehr hilf¬ 
reich, denn es ist sehr aufwendig, 
ein bereits gestartetes Programm 
zum Zweck des DDT-Aufrufs zu 
verlassen. 

Elmar Elsner, Köln 


Antwort: 

Bezüglich der Einstellung des De¬ 
fault-Laufwerks in Wordstar beach¬ 
ten Sie bitte die Antwort auf den 
Leserbrief von Herrn Peters (s.o: 
„Wordstar und dBase“). 

Zur Modifikation des CP/M, damit 
ein Drucker erkannt wird, gehen 
Sie bitte folgendermaßen vor: 
Legen Sie die CP/M-Systemdis- 
kette in das Default-Laufwerk und 
drücken Sie CtrI-C. Nun starten 
Sie DDT und geben „S100" ein. 
Auf die Meldung „100 00 “ geben 
Sie ein: „3E", „31 “, „32“, „2F‘', 
„DD“, „C3", „00“, „00“, je¬ 
weils gefolgt von <Return>. Nun 
müßten Sie wieder das Minuszei¬ 
chen von DDTZ sehen. Tippen Sie 
CtrI-C. Nun landen Sie wieder im 
CP/M. Geben Sie nun ein: „SAVE 
1 EPSON.COM“. Damit speichern 
Sie das eben Eingegebene auf 
Diskette unter dem Namen EP¬ 
SON.COM ab. Dieses Programm 
sollten Sie nun nach jedem Booten 
starten. Das können Sie per Hand 
machen, indem Sie einfach „EP¬ 
SON" eintippen, sie können aber 
auch, wenn Sie das Programm 
TURNKEY oderAUTORUN haben, 
EPSON automatisch starten las¬ 
sen. 


Anschlußfertig 

fürApp lell,/fe... 



No ch un iverseller 
und noch komfortabler. .. 

Betriebssysteme 

DOS 3 3 

DiversiDOS 2-c, 4-c, 
ProDOS 1 0.1, 1.1 0, 1 1 1 
Pascal 1 1, 1.2 
CP/M 2 20, 2.23, 2,26 

SLOT-Unabhängig 


Die bisherigen Vorzüge 
bleiben erhalten, wie 

Autopatch-Boot 

automatische Erkennung und 
Erweiterung der Betriebssysteme 
während des Bootvorgangs 
(Betriebssystem auf der Boot- 
Diskette bleibt unverändert) 



erphi 

Doppellaufwerk DL 280 

2 Laufwerke 

mit je 640 kB formatiert 

im Gehäuse inci, 

erphi 

Autopatch-Controller AFDC 3 

Handbuch und Diskette mit 
Dienstprogrammen 
Verkaufspreis incI MwSf 
DM 1.298,-_ 

erphi 

Floppy-Subsystem FSS 280 

für kommerzielle Anwendungen 
2 Laufwerke 

nfiil &I0 KB fornmltrrrl 
ltn tmi äigencr 

Stromver^rgung Inci. 

erphi 

AulDpalcIvControifer AFDC 3 

HoJidbirttt iifid mit 

OienstprcgtamErKtn 
VetkauTdpiel« tncl. MwSl 
PM i m- 


Origmalsystem-Boot 

Von herkömmlichen Apple®- 
Disketten (unabhängig 
vom Laufwerksformat) 
weiterhin möglich 

Problemloses Übertragen 

herkömmlicher Apple®-Software 
auf Disketten höherer Kapazität 
durch SIM 35-Hiltsprogramm 
(simuliert 35-Spur-Laufwerk 
unabhängig vom tatsächlichen 
Laufwerksformal) 

erphi 

electronic 

GmbH 
Dammweg 3 
D-8011 Großhelfendorf 
Telefon (0 80 95) 441 
Telex 528 021 erphi d 


Redakteur 

Für unsere Zeitschrift Peeker suchen wir 
einen Redakteur mit soliden Assembler- 
Programmierkenntnissen. 

Es erwartet Sie eine abwechslungsvolle 
Tätigkeit in einem großen Verlagshaus. 

Ihre Bewerbung mit den üblichen Unterla¬ 
gen richten Sie bitte an: 

Verlagsgruppe Dr. Alfred Hüthig 
Personalabteilung 
Postfach 10 28 69 
6900 Heidelberg 
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APPLE II 
HANDBUCH 

1 

Die rasche Orientierung für APPLE 
llplus, De, De 

Schnelle Antwort auf Alltagsfragen am APPLE II - 

1 ^ 

1 LonPaj 


leicht nachzuschlagen, praxisbezogen, für llplus, Ile, IIc 
in nur 1 Buch! 

Unterschiede Ilplus/IIe, DOS 3.3/ProDOS, E/A-Inter- 
facekarten/Ports, 40/80 Zeichendarstellung, US/DTS- 


Lon PooIb, /Hartin >44cNlff & Steven Cook 

biü 

Tastatur, 48K/128K Systeme etc. 
Grafik/Soundmöglichkeiten, eine der APPLE-Stär- 
ken, in stark erweiterter Beschreibung. 

Kurzführer „Steckkartenerweiterungen“ mit Fotos; 
„Sofortbetrieb von Disketten/Cassettengeräten“; 
„Druckerbetrieb“; „Direktbefehle“; ,Jastaturbedienung“etc. 

Backgroundwissen: BASIC für Beginner/Professionelle; MC/BASIC-Kombination; MC- 
Entwicklung mit MONITOR/MINIASSEMBLER; APPLE-PASCAL-BS; 

Disketten/Plattenspeicherung; Dateiformate etc. 

Ausführlicher Anhang zu Editor, Speicherbelegung, Codes des 

APPLESOFT-Interpreters etc. 

DAS APPLE n HANDBUCH für 
llplus, Ile, IIc, 472 Seiten, 

Softcover, DM 66,- 

tc-wi Verlag GmbH J ■ 

Theo-ProsehWeg 1 Wri«! | !■ 

8000 München 40 IQ IJLII 


Weiterführende Literatur... 



m 


Reparaturanleitung Computer: ^ 
Apple H, llplus 

Einzigartige Serviceunterlage für Reparatu¬ 
ren und Entwicklungsarbeiten am Apple II. 
Enthält Schaltpläne, Bauteile- und Ver¬ 
gleichstypenliste; Prüfpunkte mit Oszillo- 
grammen der Signalformen, Logiktabellen, 
Spannungsangaben; schnelle Servicetests; 
Anleitung zur systematischen Fehlersuche. 
In A4-Mappe, DM 29,80 


APPLE II - Bewegte 3D-Graphik 

(Phil Cohen) 

Selbstentworfene Graphiken und Dia¬ 
gramme - animiert oder als Standbilder - 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch, 

200 Seiten, Softcover, DM 49,- 


AFPLEWQBXS 

1 


V 



MASCHfNHN 

8f>RACH£ 




APPLE WORKS + APPLE II, Ile, IIc = 
Elektronischer Schreibtischmanager 
Dieses Programmsystem vereinigt die 
Funktion Texterstellung, Datenarchivie¬ 
rung, Formblattkalkulation, Datenfern¬ 
übertragung. Das System mit den höch¬ 
sten Verkaufsziffern. Sämtliche System/ 
Anwendungsfragen in 2 Bänden. Bei¬ 
spiele aus der Wirtschaft u.v.m. 
je 264 Seiten, je DM 49,- 



LOGO- 

Jeder kann programmieren 

(Daniel Watt) 

Buch des Jahres in den U SA. Für die 
Computer APPLE II, C-64, IBM PC, 
ATARI bis 520 ST, TI-99 und Schneider 
CPCs. 

Hochwertiges Textbuch für Logo-Kurse 
für zu Hause und im Lehrbereich. 

384 Seiten, A4, DM 59,- 


Apple Maschinensprache 

Für BASIC-Programmierer der einfachste 
Zugang zur Muttersprache des Apple. Wesent¬ 
lich schnellere Maschinenprogramme, direkte 
Manipulation des Mikroprozessors 6502 im 
Apple — als Brücke dorthin benötigt dieses 
Buch nur die drei BASIC-Befehle, POKE, 
CALL, PEEK. D. Inman/K. Inman. DM 49,- 

Erstes deutsches Referenzwerk sämt¬ 
licher Befehle und Systemroutinen von 
Apple II, llplus, Ile 

APPLE II PASCAL 4^, 

Betriebssystem, 272 S,, DM 49,- ^ 

Sprache, 216 S., DM 39,- 

Pascal L2 Addendum, 112 S., DM 36,- 



Grundlagenbuch, Bestseller 
APPLE II PASCAL, 

Eine praktische Anleitung, 
544 s., DM 59,- 




Noch im Programm: 

6502 - Programmieren in Assembler DM 59,- 
VisiCalc, 50 Programme auf Diskette, DM 79,- 
Computer für Kinder, APPLE II, DM 29,80 


In Vorbereitung: 

Macintosh Programmier-Handbuch 
mit Microsoft BASIC 2.0 DM 59,- 



















Warum wollen Sie ein teures Textverarbeitungsprogramm kaufen, 
wenn es ein billiges und besseres gibt? 


Fast-Writer 


von Harald Grumser 
Programmdiskette und Handbuch 
Gerätevoraussetzung: Apple Ile oder llc (nicht 11+) 
DOS-3.3-Version. Auslieferung ab 1.6.86 
Normalpreis DM 128,- (ISBN 3-7785-1419-9) 
Sonderpreis für Peeker-Abonnenten DM 98,- 


ProDOS-Version. Auslieferung ab 1.9.86 
Normalpreis DM 128,- (ISBN 3-7785-1421-0) 
Sonderpreis für Peeker-Abonnenten DM 98,- 
Kombinationspreis für Bezieher der 
DOS-3.3-\/ersion DM 28,- 


Der Fast-Writer von Harald Grumser ist in zahlreichen Funktionen wie Scrollen, Suchen und Ersetzen mit 
Abstand das schnellste und damit angenehmste Textverarbeitungsprogramm für den Apple Ile oder llc. 


Flexibilität 

Viele Textverarbeitungsprogramme sind geschützt und 
laufen deshalb nur in Verbindung mit normalen Disk-Il- 
Laufwerken. Nicht so der Fast-Writerl 


- Der Fast-Writer modifiziert weder DOS 3.3 (oder 
Diversi-DOS) noch ProDOS und kann deshalb mit 
BRUN FAST.WRITER gestartet werden. Unter Diversi- 
DOS ist der Fast-Writer dann in 3 Sekunden im Spei¬ 
cher. Vergleichen Sie einmal, wie lange es dauert, bis 
andere Textprogramme im Speicher sindl 


-Da der DOS-3.3-Fast-Writer in den oberen 16K (= 
Language Card) liegt, kann man ihn vorübergehend 
verlassen und mit einem einfachen Befehl wieder star¬ 
ten. Mit anderen Worten: Der Fast-Writer ist permanent 
verfügbar, auch wenn Sie zwischendurch beispielswei¬ 
se mit FID Dateien kopiert haben. 


- Der Fast-Writer läuft mit allen externen Datenspei¬ 
chern, die für DOS 3.3 oder ProDOS gedacht sind, z.B. 
mit dem Erphi-160-Spur-Subsystem, mit der Mega- 
board-MDB-Festplatte, mit RAM-Karten usw. Spezielle 
Anpassungen sind nicht erforderlich. Suchen Sie ein¬ 
mal ein Textprogramm, das mit diesen Datenspeichern 
auf Anhieb funktioniert! 


- Der Fast-Writer kann mühelos über ein Menü für Ihre 
speziellen Aufgaben konfiguriert werden. Sie können 
z.B. per Knopfdruck die Zeilenbreite (normal 80 Zei¬ 
chen) am Bildschirm einstellen, wobei ab einer Breite 
von weniger als 41 Zeichen automatisch auf die größere 
Bildschirmschrift umgestellt wird. Ferner können Sie 
die Größe des Arbeitsspeichers (insgesamt ca. 35 500 
Zeichen) beliebig in Textspeicher und Hilfspuffer (für 
Löschen und Blockverschieben) aufteilen. Wenn Sie 
z.B. große Textblöcke im Speicher zu verschieben ha¬ 
ben, so können Sie einen entsprechend großen Hilfs¬ 
puffer von z.B. 10 000 Zeichen einrichten. Damit entfällt 
das zeitraubende Zwischenspeichern und Einlesen von 
Diskette. 


Befehlsvorrat 

Der Fast-Writer verfügt über eine große Zahl von Be¬ 
fehlen, von denen Sie in der Praxis jedoch nur wenige 
benötigen. Fünf Befehlsübersichten sind durch einge¬ 
baute Hilfsübersichten immer abrufbar, so daß Sie 
schon nach einer mehrstündigen Einarbeitung auf das 
Handbuch verzichten können. Eine Auswahl der wich¬ 
tigsten Befehle: 

- Freie Cursorbewegung in allen vier Richtungen mit 
eingebauter Schnell-Scroll-Routine. 

- Diverse, per Knopfdruck ein- und ausschaltbare Op¬ 
tionen, z.B. Wortumbruch/kein Wortumbruch, Return 
sichtbar/unsichtbar, Kopfzeile (Statuszeile) mit Spei¬ 
cherbelegung, Cursorposition usw. eingeblendet/aus¬ 
geblendet, Bildschirm geteilt/ungeteilt, Tabulatorleiste 
sichtbar/unsichtbar, Überschreibmodus (statt normalen 
Einfügmodus) ein/aus usw. 

- Eingabe von Kontrollbuchstaben (einschließlich CtrI-V!) 
möglich. Automatische Konvertierung in Groß- oder Klein- 
schreibufig (unter Berücksichtigung der Umlaute und ß!) 

- Extrem schnelles Suchen und Ersetzen von Zeichen¬ 
ketten (vorwärts und rückwärts). 

- Makros frei definierbar und per Knopfdruck abrufbär. 
Makros können nicht nur stereotype Wortfolgen sein 
(z.B. „Sehr geehrte Herren“), sondern auch alle Be- 
fehisfolgen, die man beim Fast-Writer sonst über die 
Tastatur eingeben würde. So läßt sich beispielsweise 
ein Text automatisch von Laufwerk 1 laden und auf 
Laufwerk 2 speichern. 

- DOS-Kommandos wie Catalog, Delete, Rename usw. 
immer verfügbar (bei DOS 3.3 zusätzlich Init, bei Pro- 
DOS zusätzlich Online und Datum) 

- Ausdruck auf Matrixdrucker (normal endlos), Schreib¬ 
maschine (normal mit Einzelblatt) und zu Kontrolizwek- 
ken auf Bildschirm; links- und rechtsbündig, zentriert 
und Blocksatz; einstellbarer linker, rechter und oberer 
Rand (im Text änderbar), bei Bedarf mit Kopfzeile und 
Paginierung usw. Der Ausdruck kann über eigene 
Druckertreiber umgelenkt werden, um z.B. Probleme 
mit Typenrädern, Steuerzeichen usw. zu beheben. 

- Makros, Druckparameter, Druckertreiber und Tabula¬ 
toren können auf Diskette gespeichert werden. 
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